LAPACK  3.10.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 *> \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
logical function lsame(CA, CB)
LSAME
Definition: lsame.f:53