Lines Matching refs:THEN
127 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
130 + .NOT.LSAME(TRANS,'C')) THEN
132 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
134 ELSE IF (N.LT.0) THEN
136 ELSE IF (INCX.EQ.0) THEN
139 IF (INFO.NE.0) THEN
154 IF (INCX.LE.0) THEN
156 ELSE IF (INCX.NE.1) THEN
163 IF (LSAME(TRANS,'N')) THEN
167 IF (LSAME(UPLO,'U')) THEN
169 IF (INCX.EQ.1) THEN
171 IF (X(J).NE.ZERO) THEN
185 IF (X(JX).NE.ZERO) THEN
200 IF (INCX.EQ.1) THEN
202 IF (X(J).NE.ZERO) THEN
216 IF (X(JX).NE.ZERO) THEN
234 IF (LSAME(UPLO,'U')) THEN
236 IF (INCX.EQ.1) THEN
240 IF (NOCONJ) THEN
261 IF (NOCONJ) THEN
281 IF (INCX.EQ.1) THEN
285 IF (NOCONJ) THEN
307 IF (NOCONJ) THEN
