LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
lsametst.f
Go to the documentation of this file.
1*> \brief \b LSAMETST
2*
3* =========== DOCUMENTATION ===========
4*
5* Online html documentation available at
6* http://www.netlib.org/lapack/explore-html/
7*
8* Definition:
9* ===========
10*
11* PROGRAM LSAMETST
12*
13* Authors:
14* ========
15*
16*> \author Univ. of Tennessee
17*> \author Univ. of California Berkeley
18*> \author Univ. of Colorado Denver
19*> \author NAG Ltd.
20*
21*> \ingroup auxOTHERauxiliary
22*
23* ===================================================================== PROGRAM LSAMETST
24*
25* -- LAPACK test routine --
26*
27* -- LAPACK computational routine --
28* -- LAPACK is a software package provided by Univ. of Tennessee, --
29* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
30*
31* =====================================================================
32* .. Local Scalars ..
33 INTEGER i1, i2
34* ..
35* .. External Functions ..
36 LOGICAL lsame
37 EXTERNAL lsame
38* ..
39* .. Intrinsic Functions ..
40 INTRINSIC ichar
41* ..
42* .. Executable Statements ..
43*
44*
45* Determine the character set.
46*
47 i1 = ichar( 'A' )
48 i2 = ichar( 'a' )
49 IF( i2-i1.EQ.32 ) THEN
50 WRITE( *, * ) ' ASCII character set'
51 ELSE
52 WRITE( *, * ) ' Non-ASCII character set, IOFF should be ',i2-i1
53 END IF
54*
55* Test LSAME.
56*
57 IF( .NOT. lsame( 'A', 'A' ) )
58 $ WRITE( *, 9999 )'A', 'A'
59 IF( .NOT. lsame( 'A', 'a' ) )
60 $ WRITE( *, 9999 )'A', 'a'
61 IF( .NOT. lsame( 'a', 'A' ) )
62 $ WRITE( *, 9999 )'a', 'A'
63 IF( .NOT. lsame( 'a', 'a' ) )
64 $ WRITE( *, 9999 )'a', 'a'
65 IF( lsame( 'A', 'B' ) )
66 $ WRITE( *, 9998 )'A', 'B'
67 IF( lsame( 'A', 'b' ) )
68 $ WRITE( *, 9998 )'A', 'b'
69 IF( lsame( 'a', 'B' ) )
70 $ WRITE( *, 9998 )'a', 'B'
71 IF( lsame( 'a', 'b' ) )
72 $ WRITE( *, 9998 )'a', 'b'
73 IF( lsame( 'O', '/' ) )
74 $ WRITE( *, 9998 )'O', '/'
75 IF( lsame( '/', 'O' ) )
76 $ WRITE( *, 9998 )'/', 'O'
77 IF( lsame( 'o', '/' ) )
78 $ WRITE( *, 9998 )'o', '/'
79 IF( lsame( '/', 'o' ) )
80 $ WRITE( *, 9998 )'/', 'o'
81 WRITE( *, * )' Tests completed'
82*
83 9999 FORMAT( ' *** Error: LSAME( ', a1, ', ', a1, ') is .FALSE.' )
84 9998 FORMAT( ' *** Error: LSAME( ', a1, ', ', a1, ') is .TRUE.' )
85 END
lsame
logical function lsame(ca, cb)
LSAME
Definition lsame.f:48