Lines Matching refs:IF
123 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
125 ELSE IF (N.LT.0) THEN
127 ELSE IF (INCX.EQ.0) THEN
129 ELSE IF (INCY.EQ.0) THEN
131 END IF
132 IF (INFO.NE.0) THEN
135 END IF
137 * Quick return if possible.
139 IF ((N.EQ.0) .OR. (ALPHA.EQ.ZERO)) RETURN
141 * Set up the start points in X and Y if the increments are not both
144 IF ((INCX.NE.1) .OR. (INCY.NE.1)) THEN
145 IF (INCX.GT.0) THEN
149 END IF
150 IF (INCY.GT.0) THEN
154 END IF
157 END IF
163 IF (LSAME(UPLO,'U')) THEN
167 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
169 IF ((X(J).NE.ZERO) .OR. (Y(J).NE.ZERO)) THEN
181 END IF
186 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
200 END IF
205 END IF
210 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
212 IF ((X(J).NE.ZERO) .OR. (Y(J).NE.ZERO)) THEN
224 END IF
229 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
243 END IF
248 END IF
249 END IF
