Lines Matching full:sflag
39 real sflag, stemp;
55 /* WITH SPARAM(1)=SFLAG, H HAS ONE OF THE FOLLOWING FORMS.. */
57 /* SFLAG=-1.E0 SFLAG=0.E0 SFLAG=1.E0 SFLAG=-2.E0 */
85 /* SPARAM(1)=SFLAG */
115 sflag = -two;
137 sflag = zero;
150 sflag = one;
162 sflag = -one;
175 if (! (sflag >= zero)) {
179 if (! (sflag == zero)) {
184 sflag = -one;
189 sflag = -one;
271 if (sflag < 0.f) {
273 } else if (sflag == 0) {
292 sparam[1] = sflag;
