Lines Matching refs:IF
164 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
166 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
169 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
171 ELSE IF (N.LT.0) THEN
173 ELSE IF (K.LT.0) THEN
175 ELSE IF (LDA.LT. (K+1)) THEN
177 ELSE IF (INCX.EQ.0) THEN
179 END IF
180 IF (INFO.NE.0) THEN
183 END IF
185 * Quick return if possible.
187 IF (N.EQ.0) RETURN
192 * Set up the start point in X if the increment is not unity. This
195 IF (INCX.LE.0) THEN
197 ELSE IF (INCX.NE.1) THEN
199 END IF
204 IF (LSAME(TRANS,'N')) THEN
208 IF (LSAME(UPLO,'U')) THEN
210 IF (INCX.EQ.1) THEN
212 IF (X(J).NE.ZERO) THEN
218 IF (NOUNIT) X(J) = X(J)*A(KPLUS1,J)
219 END IF
224 IF (X(JX).NE.ZERO) THEN
232 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
233 END IF
235 IF (J.GT.K) KX = KX + INCX
237 END IF
239 IF (INCX.EQ.1) THEN
241 IF (X(J).NE.ZERO) THEN
247 IF (NOUNIT) X(J) = X(J)*A(1,J)
248 END IF
254 IF (X(JX).NE.ZERO) THEN
262 IF (NOUNIT) X(JX) = X(JX)*A(1,J)
263 END IF
265 IF ((N-J).GE.K) KX = KX - INCX
267 END IF
268 END IF
273 IF (LSAME(UPLO,'U')) THEN
275 IF (INCX.EQ.1) THEN
279 IF (NOCONJ) THEN
280 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
285 IF (NOUNIT) TEMP = TEMP*CONJG(A(KPLUS1,J))
289 END IF
300 IF (NOCONJ) THEN
301 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
307 IF (NOUNIT) TEMP = TEMP*CONJG(A(KPLUS1,J))
312 END IF
316 END IF
318 IF (INCX.EQ.1) THEN
322 IF (NOCONJ) THEN
323 IF (NOUNIT) TEMP = TEMP*A(1,J)
328 IF (NOUNIT) TEMP = TEMP*CONJG(A(1,J))
332 END IF
342 IF (NOCONJ) THEN
343 IF (NOUNIT) TEMP = TEMP*A(1,J)
349 IF (NOUNIT) TEMP = TEMP*CONJG(A(1,J))
354 END IF
358 END IF
359 END IF
360 END IF
