Lines Matching refs:ONE
54 REAL GAM,GAMSQ,ONE,RGAMSQ,SFLAG,SH11,SH12,SH21,SH22,SP1,SP2,SQ1, local
63 DATA ZERO,ONE,TWO/0.E0,1.E0,2.E0/
86 SU = ONE - SH12*SH21
103 SFLAG = ONE
106 SU = ONE + SH11*SH22
115 SFLAG = -ONE
131 SH11 = ONE
132 SH22 = ONE
133 SFLAG = -ONE
136 SH21 = -ONE
137 SH12 = ONE
138 SFLAG = -ONE