Lines Matching full:zero
39 * N must be at least zero.
54 * X. INCX must not be zero.
74 * not be set, they are assumed to be zero, and on exit they
75 * are set to zero.
91 COMPLEX ZERO
92 PARAMETER (ZERO= (0.0E+0,0.0E+0))
126 IF ((N.EQ.0) .OR. (ALPHA.EQ.REAL(ZERO))) RETURN
146 IF (X(J).NE.ZERO) THEN
162 IF (X(JX).NE.ZERO) THEN
183 IF (X(J).NE.ZERO) THEN
199 IF (X(JX).NE.ZERO) THEN
