Lines Matching refs:IF
121 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
123 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
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
132 END IF
133 IF (INFO.NE.0) THEN
136 END IF
138 * Quick return if possible.
140 IF (N.EQ.0) RETURN
144 * Set up the start point in X if the increment is not unity. This
147 IF (INCX.LE.0) THEN
149 ELSE IF (INCX.NE.1) THEN
151 END IF
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
171 IF (NOUNIT) X(J) = X(J)*AP(KK+J-1)
172 END IF
178 IF (X(JX).NE.ZERO) THEN
185 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
186 END IF
190 END IF
193 IF (INCX.EQ.1) THEN
195 IF (X(J).NE.ZERO) THEN
202 IF (NOUNIT) X(J) = X(J)*AP(KK-N+J)
203 END IF
210 IF (X(JX).NE.ZERO) THEN
217 IF (NOUNIT) X(JX) = X(JX)*AP(KK-N+J)
218 END IF
222 END IF
223 END IF
228 IF (LSAME(UPLO,'U')) THEN
230 IF (INCX.EQ.1) THEN
233 IF (NOUNIT) TEMP = TEMP*AP(KK)
247 IF (NOUNIT) TEMP = TEMP*AP(KK)
256 END IF
259 IF (INCX.EQ.1) THEN
262 IF (NOUNIT) TEMP = TEMP*AP(KK)
276 IF (NOUNIT) TEMP = TEMP*AP(KK)
285 END IF
286 END IF
287 END IF
