Lines Matching refs:IF
117 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
119 ELSE IF (N.LT.0) THEN
121 ELSE IF (INCX.EQ.0) THEN
123 ELSE IF (INCY.EQ.0) THEN
125 END IF
126 IF (INFO.NE.0) THEN
129 END IF
131 * Quick return if possible.
133 IF ((N.EQ.0) .OR. (ALPHA.EQ.ZERO)) RETURN
135 * Set up the start points in X and Y if the increments are not both
138 IF ((INCX.NE.1) .OR. (INCY.NE.1)) THEN
139 IF (INCX.GT.0) THEN
143 END IF
144 IF (INCY.GT.0) THEN
148 END IF
151 END IF
157 IF (LSAME(UPLO,'U')) THEN
161 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
163 IF ((X(J).NE.ZERO) .OR. (Y(J).NE.ZERO)) THEN
171 END IF
176 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
186 END IF
191 END IF
196 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
198 IF ((X(J).NE.ZERO) .OR. (Y(J).NE.ZERO)) THEN
206 END IF
211 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
221 END IF
226 END IF
227 END IF
