LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
File List
File Members
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 December 2016
22
*
23
*> \ingroup auxOTHERauxiliary
24
*
25
* ===================================================================== PROGRAM LSAMETST
26
*
27
* -- LAPACK test routine (version 3.7.0) --
28
*
29
* -- LAPACK computational routine (version 3.7.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
* December 2016
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
INSTALL
lsametst.f
Generated on Fri Dec 23 2016 15:28:06 for LAPACK by
1.8.10