Lines Matching refs:IF
14 * LSAME returns .TRUE. if CA is the same letter as CB regardless of
34 * Test if the characters are equal
37 IF (LSAME) RETURN
39 * Now test for equivalence if both characters are alphabetic.
51 IF (ZCODE.EQ.90 .OR. ZCODE.EQ.122) THEN
56 IF (INTA.GE.97 .AND. INTA.LE.122) INTA = INTA - 32
57 IF (INTB.GE.97 .AND. INTB.LE.122) INTB = INTB - 32
59 ELSE IF (ZCODE.EQ.233 .OR. ZCODE.EQ.169) THEN
64 IF (INTA.GE.129 .AND. INTA.LE.137 .OR.
67 IF (INTB.GE.129 .AND. INTB.LE.137 .OR.
71 ELSE IF (ZCODE.EQ.218 .OR. ZCODE.EQ.250) THEN
76 IF (INTA.GE.225 .AND. INTA.LE.250) INTA = INTA - 32
77 IF (INTB.GE.225 .AND. INTB.LE.250) INTB = INTB - 32
78 END IF
