Lines Matching refs:ZERO
55 + SQ2,STEMP,SU,TWO,ZERO
63 DATA ZERO,ONE,TWO/0.E0,1.E0,2.E0/
67 IF (.NOT.SD1.LT.ZERO) GO TO 10
68 * GO ZERO-H-D-AND-SX1..
73 IF (.NOT.SP2.EQ.ZERO) GO TO 20
88 IF (.NOT.SU.LE.ZERO) GO TO 30
89 * GO ZERO-H-D-AND-SX1..
92 SFLAG = ZERO
99 IF (.NOT.SQ2.LT.ZERO) GO TO 50
100 * GO ZERO-H-D-AND-SX1..
113 * PROCEDURE..ZERO-H-D-AND-SX1..
116 SH11 = ZERO
117 SH12 = ZERO
118 SH21 = ZERO
119 SH22 = ZERO
121 SD1 = ZERO
122 SD2 = ZERO
123 SX1 = ZERO
128 IF (.NOT.SFLAG.GE.ZERO) GO TO 90
130 IF (.NOT.SFLAG.EQ.ZERO) GO TO 80
145 IF (SD1.EQ.ZERO) GO TO 160
170 IF (SD2.EQ.ZERO) GO TO 220
