LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
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 *> \date November 2011
22 *
23 *> \ingroup auxOTHERauxiliary
24 *
25 * ===================================================================== PROGRAM LSAMETST
26 *
27 * -- LAPACK test routine (version 3.4.0) --
28 *
29 * -- LAPACK computational routine (version 3.4.0) --
30 * -- LAPACK is a software package provided by Univ. of Tennessee, --
31 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
32 * November 2011
33 *
34 * =====================================================================
35 * .. Local Scalars ..
36  INTEGER I1, I2
37 * ..
38 * .. External Functions ..
39  LOGICAL LSAME
40  EXTERNAL lsame
41 * ..
42 * .. Intrinsic Functions ..
43  INTRINSIC ichar
44 * ..
45 * .. Executable Statements ..
46 *
47 *
48 * Determine the character set.
49 *
50  i1 = ichar( 'A' )
51  i2 = ichar( 'a' )
52  IF( i2-i1.EQ.32 ) THEN
53  WRITE( *, * ) ' ASCII character set'
54  ELSE
55  WRITE( *, * ) ' Non-ASCII character set, IOFF should be ',i2-i1
56  END IF
57 *
58 * Test LSAME.
59 *
60  IF( .NOT. lsame( 'A', 'A' ) )
61  $ WRITE( *, 9999 )'A', 'A'
62  IF( .NOT. lsame( 'A', 'a' ) )
63  $ WRITE( *, 9999 )'A', 'a'
64  IF( .NOT. lsame( 'a', 'A' ) )
65  $ WRITE( *, 9999 )'a', 'A'
66  IF( .NOT. lsame( 'a', 'a' ) )
67  $ WRITE( *, 9999 )'a', 'a'
68  IF( lsame( 'A', 'B' ) )
69  $ WRITE( *, 9998 )'A', 'B'
70  IF( lsame( 'A', 'b' ) )
71  $ WRITE( *, 9998 )'A', 'b'
72  IF( lsame( 'a', 'B' ) )
73  $ WRITE( *, 9998 )'a', 'B'
74  IF( lsame( 'a', 'b' ) )
75  $ WRITE( *, 9998 )'a', 'b'
76  IF( lsame( 'O', '/' ) )
77  $ WRITE( *, 9998 )'O', '/'
78  IF( lsame( '/', 'O' ) )
79  $ WRITE( *, 9998 )'/', 'O'
80  IF( lsame( 'o', '/' ) )
81  $ WRITE( *, 9998 )'o', '/'
82  IF( lsame( '/', 'o' ) )
83  $ WRITE( *, 9998 )'/', 'o'
84  WRITE( *, * )' Tests completed'
85 *
86  9999 FORMAT( ' *** Error: LSAME( ', a1, ', ', a1, ') is .FALSE.' )
87  9998 FORMAT( ' *** Error: LSAME( ', a1, ', ', a1, ') is .TRUE.' )
88  END
lsame
logical function lsame(CA, CB)
LSAME
Definition: lsame.f:55