Go to the documentation of this file.00001 LOGICAL FUNCTION LSAME(CA,CB)
00002
00003
00004
00005
00006
00007
00008 CHARACTER CA,CB
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028 INTRINSIC ICHAR
00029
00030
00031 INTEGER INTA,INTB,ZCODE
00032
00033
00034
00035
00036 LSAME = CA .EQ. CB
00037 IF (LSAME) RETURN
00038
00039
00040
00041 ZCODE = ICHAR('Z')
00042
00043
00044
00045
00046
00047
00048 INTA = ICHAR(CA)
00049 INTB = ICHAR(CB)
00050
00051 IF (ZCODE.EQ.90 .OR. ZCODE.EQ.122) THEN
00052
00053
00054
00055
00056 IF (INTA.GE.97 .AND. INTA.LE.122) INTA = INTA - 32
00057 IF (INTB.GE.97 .AND. INTB.LE.122) INTB = INTB - 32
00058
00059 ELSE IF (ZCODE.EQ.233 .OR. ZCODE.EQ.169) THEN
00060
00061
00062
00063
00064 IF (INTA.GE.129 .AND. INTA.LE.137 .OR.
00065 + INTA.GE.145 .AND. INTA.LE.153 .OR.
00066 + INTA.GE.162 .AND. INTA.LE.169) INTA = INTA + 64
00067 IF (INTB.GE.129 .AND. INTB.LE.137 .OR.
00068 + INTB.GE.145 .AND. INTB.LE.153 .OR.
00069 + INTB.GE.162 .AND. INTB.LE.169) INTB = INTB + 64
00070
00071 ELSE IF (ZCODE.EQ.218 .OR. ZCODE.EQ.250) THEN
00072
00073
00074
00075
00076 IF (INTA.GE.225 .AND. INTA.LE.250) INTA = INTA - 32
00077 IF (INTB.GE.225 .AND. INTB.LE.250) INTB = INTB - 32
00078 END IF
00079 LSAME = INTA .EQ. INTB
00080
00081
00082
00083
00084
00085 END