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
147 * Set up the start point in X if the increment is not unity. This
150 IF (INCX.LE.0) THEN
152 ELSE IF (INCX.NE.1) THEN
154 END IF
159 IF (LSAME(TRANS,'N')) THEN
163 IF (LSAME(UPLO,'U')) THEN
165 IF (INCX.EQ.1) THEN
167 IF (X(J).NE.ZERO) THEN
168 IF (NOUNIT) X(J) = X(J)/AP(KK)
175 END IF
181 IF (X(JX).NE.ZERO) THEN
182 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
189 END IF
193 END IF
196 IF (INCX.EQ.1) THEN
198 IF (X(J).NE.ZERO) THEN
199 IF (NOUNIT) X(J) = X(J)/AP(KK)
206 END IF
212 IF (X(JX).NE.ZERO) THEN
213 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
220 END IF
224 END IF
225 END IF
230 IF (LSAME(UPLO,'U')) THEN
232 IF (INCX.EQ.1) THEN
240 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
253 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
258 END IF
261 IF (INCX.EQ.1) THEN
269 IF (NOUNIT) TEMP = TEMP/AP(KK-N+J)
283 IF (NOUNIT) TEMP = TEMP/AP(KK-N+J)
288 END IF
289 END IF
290 END IF
