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 | CA is CHARACTER*1 |
[in] | CB | CB is CHARACTER*1
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 55 of file lsame.f.
71 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
119 lsame = inta .EQ. intb
logical function lsame(CA, CB)
LSAME