Lines Matching refs:IF
124 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
126 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
129 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
131 ELSE IF (N.LT.0) THEN
133 ELSE IF (INCX.EQ.0) THEN
135 END IF
136 IF (INFO.NE.0) THEN
139 END IF
141 * Quick return if possible.
143 IF (N.EQ.0) RETURN
148 * Set up the start point in X if the increment is not unity. This
151 IF (INCX.LE.0) THEN
153 ELSE IF (INCX.NE.1) THEN
155 END IF
160 IF (LSAME(TRANS,'N')) THEN
164 IF (LSAME(UPLO,'U')) THEN
166 IF (INCX.EQ.1) THEN
168 IF (X(J).NE.ZERO) THEN
175 IF (NOUNIT) X(J) = X(J)*AP(KK+J-1)
176 END IF
182 IF (X(JX).NE.ZERO) THEN
189 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
190 END IF
194 END IF
197 IF (INCX.EQ.1) THEN
199 IF (X(J).NE.ZERO) THEN
206 IF (NOUNIT) X(J) = X(J)*AP(KK-N+J)
207 END IF
214 IF (X(JX).NE.ZERO) THEN
221 IF (NOUNIT) X(JX) = X(JX)*AP(KK-N+J)
222 END IF
226 END IF
227 END IF
232 IF (LSAME(UPLO,'U')) THEN
234 IF (INCX.EQ.1) THEN
238 IF (NOCONJ) THEN
239 IF (NOUNIT) TEMP = TEMP*AP(KK)
245 IF (NOUNIT) TEMP = TEMP*DCONJG(AP(KK))
250 END IF
259 IF (NOCONJ) THEN
260 IF (NOUNIT) TEMP = TEMP*AP(KK)
266 IF (NOUNIT) TEMP = TEMP*DCONJG(AP(KK))
271 END IF
276 END IF
279 IF (INCX.EQ.1) THEN
283 IF (NOCONJ) THEN
284 IF (NOUNIT) TEMP = TEMP*AP(KK)
290 IF (NOUNIT) TEMP = TEMP*DCONJG(AP(KK))
295 END IF
304 IF (NOCONJ) THEN
305 IF (NOUNIT) TEMP = TEMP*AP(KK)
311 IF (NOUNIT) TEMP = TEMP*DCONJG(AP(KK))
316 END IF
321 END IF
322 END IF
323 END IF
