Lines Matching full:zero
39 * N must be at least zero.
54 * X. INCX must not be zero.
65 * Y. INCY must not be zero.
99 REAL ZERO
100 PARAMETER (ZERO=0.0E+0)
133 IF ((N.EQ.0) .OR. (ALPHA.EQ.ZERO)) RETURN
163 IF ((X(J).NE.ZERO) .OR. (Y(J).NE.ZERO)) THEN
176 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
198 IF ((X(J).NE.ZERO) .OR. (Y(J).NE.ZERO)) THEN
211 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
