Go to the source code of this file.
logical function lsame |
( |
character |
CA, |
|
|
character |
CB |
|
) |
| |
LSAME
- Purpose:
LSAME returns .TRUE. if CA is the same letter as CB regardless of
case.
- Parameters
-
[in] | CA | |
[in] | CB | CA and CB specify the single characters to be compared. |
- Author
- Univ. of Tennessee
-
Univ. of California Berkeley
-
Univ. of Colorado Denver
-
NAG Ltd.
- Date
- November 2011
Definition at line 53 of file lsame.f.
69 INTEGER inta, intb, zcode
91 IF( zcode.EQ.90 .OR. zcode.EQ.122 )
THEN
96 IF( inta.GE.97 .AND. inta.LE.122 ) inta = inta - 32
97 IF( intb.GE.97 .AND. intb.LE.122 ) intb = intb - 32
99 ELSE IF( zcode.EQ.233 .OR. zcode.EQ.169 )
THEN
104 IF( inta.GE.129 .AND. inta.LE.137 .OR.
105 $ inta.GE.145 .AND. inta.LE.153 .OR.
106 $ inta.GE.162 .AND. inta.LE.169 ) inta = inta + 64
107 IF( intb.GE.129 .AND. intb.LE.137 .OR.
108 $ intb.GE.145 .AND. intb.LE.153 .OR.
109 $ intb.GE.162 .AND. intb.LE.169 ) intb = intb + 64
111 ELSE IF( zcode.EQ.218 .OR. zcode.EQ.250 )
THEN
116 IF( inta.GE.225 .AND. inta.LE.250 ) inta = inta - 32
117 IF( intb.GE.225 .AND. intb.LE.250 ) intb = intb - 32
logical function lsame(CA, CB)
LSAME