Searched refs:INTB (Results 1 – 1 of 1) sorted by relevance
31 INTEGER INTA,INTB,ZCODE local49 INTB = ICHAR(CB)57 IF (INTB.GE.97 .AND. INTB.LE.122) INTB = INTB - 3267 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 + 6477 IF (INTB.GE.225 .AND. INTB.LE.250) INTB = INTB - 3279 LSAME = INTA .EQ. INTB