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
194 IF (INCX.LE.0) THEN
196 ELSE IF (INCX.NE.1) THEN
203 IF (LSAME(TRANS,'N')) THEN
207 IF (LSAME(UPLO,'U')) THEN
209 IF (INCX.EQ.1) THEN
211 IF (X(J).NE.ZERO) THEN
223 IF (X(JX).NE.ZERO) THEN
238 IF (INCX.EQ.1) THEN
240 IF (X(J).NE.ZERO) THEN
253 IF (X(JX).NE.ZERO) THEN
272 IF (LSAME(UPLO,'U')) THEN
274 IF (INCX.EQ.1) THEN
302 IF (INCX.EQ.1) THEN
