Lines Matching refs:IF
127 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
129 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
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
138 END IF
139 IF (INFO.NE.0) THEN
142 END IF
144 * Quick return if possible.
146 IF (N.EQ.0) RETURN
151 * Set up the start point in X if the increment is not unity. This
154 IF (INCX.LE.0) THEN
156 ELSE IF (INCX.NE.1) THEN
158 END IF
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
172 IF (NOUNIT) X(J) = X(J)/AP(KK)
179 END IF
185 IF (X(JX).NE.ZERO) THEN
186 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
193 END IF
197 END IF
200 IF (INCX.EQ.1) THEN
202 IF (X(J).NE.ZERO) THEN
203 IF (NOUNIT) X(J) = X(J)/AP(KK)
210 END IF
216 IF (X(JX).NE.ZERO) THEN
217 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
224 END IF
228 END IF
229 END IF
234 IF (LSAME(UPLO,'U')) THEN
236 IF (INCX.EQ.1) THEN
240 IF (NOCONJ) THEN
245 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
251 IF (NOUNIT) TEMP = TEMP/DCONJG(AP(KK+J-1))
252 END IF
261 IF (NOCONJ) THEN
266 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
272 IF (NOUNIT) TEMP = TEMP/DCONJG(AP(KK+J-1))
273 END IF
278 END IF
281 IF (INCX.EQ.1) THEN
285 IF (NOCONJ) THEN
290 IF (NOUNIT) TEMP = TEMP/AP(KK-N+J)
296 IF (NOUNIT) TEMP = TEMP/DCONJG(AP(KK-N+J))
297 END IF
307 IF (NOCONJ) THEN
312 IF (NOUNIT) TEMP = TEMP/AP(KK-N+J)
318 IF (NOUNIT) TEMP = TEMP/DCONJG(AP(KK-N+J))
319 END IF
324 END IF
325 END IF
326 END IF
