Lines Matching refs:THEN
164 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
167 + .NOT.LSAME(TRANS,'C')) THEN
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
180 IF (INFO.NE.0) THEN
195 IF (INCX.LE.0) THEN
197 ELSE IF (INCX.NE.1) THEN
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
224 IF (X(JX).NE.ZERO) THEN
239 IF (INCX.EQ.1) THEN
241 IF (X(J).NE.ZERO) THEN
254 IF (X(JX).NE.ZERO) THEN
273 IF (LSAME(UPLO,'U')) THEN
275 IF (INCX.EQ.1) THEN
279 IF (NOCONJ) THEN
300 IF (NOCONJ) THEN
318 IF (INCX.EQ.1) THEN
322 IF (NOCONJ) THEN
342 IF (NOCONJ) THEN
