Lines Matching refs:THEN
121 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
124 + .NOT.LSAME(TRANS,'C')) THEN
126 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
128 ELSE IF (N.LT.0) THEN
130 ELSE IF (INCX.EQ.0) THEN
133 IF (INFO.NE.0) THEN
147 IF (INCX.LE.0) THEN
149 ELSE IF (INCX.NE.1) THEN
156 IF (LSAME(TRANS,'N')) THEN
160 IF (LSAME(UPLO,'U')) THEN
162 IF (INCX.EQ.1) THEN
164 IF (X(J).NE.ZERO) THEN
178 IF (X(JX).NE.ZERO) THEN
193 IF (INCX.EQ.1) THEN
195 IF (X(J).NE.ZERO) THEN
210 IF (X(JX).NE.ZERO) THEN
228 IF (LSAME(UPLO,'U')) THEN
230 IF (INCX.EQ.1) THEN
259 IF (INCX.EQ.1) THEN
