Lines Matching defs:INTA
31 INTEGER INTA,INTB,ZCODE
48 INTA = ICHAR(CA)
56 IF (INTA.GE.97 .AND. INTA.LE.122) INTA = INTA - 32
64 IF (INTA.GE.129 .AND. INTA.LE.137 .OR.
65 + INTA.GE.145 .AND. INTA.LE.153 .OR.
66 + INTA.GE.162 .AND. INTA.LE.169) INTA = INTA + 64
76 IF (INTA.GE.225 .AND. INTA.LE.250) INTA = INTA - 32
79 LSAME = INTA .EQ. INTB
