Lines Matching refs:INTB
31 INTEGER INTA,INTB,ZCODE
49 INTB = ICHAR(CB)
57 IF (INTB.GE.97 .AND. INTB.LE.122) INTB = INTB - 32
67 IF (INTB.GE.129 .AND. INTB.LE.137 .OR.
68 + INTB.GE.145 .AND. INTB.LE.153 .OR.
69 + INTB.GE.162 .AND. INTB.LE.169) INTB = INTB + 64
77 IF (INTB.GE.225 .AND. INTB.LE.250) INTB = INTB - 32
79 LSAME = INTA .EQ. INTB