Lines Matching refs:IF
112 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
114 ELSE IF (N.LT.0) THEN
116 ELSE IF (INCX.EQ.0) THEN
118 END IF
119 IF (INFO.NE.0) THEN
122 END IF
124 * Quick return if possible.
126 IF ((N.EQ.0) .OR. (ALPHA.EQ.REAL(ZERO))) RETURN
128 * Set the start point in X if the increment is not unity.
130 IF (INCX.LE.0) THEN
132 ELSE IF (INCX.NE.1) THEN
134 END IF
140 IF (LSAME(UPLO,'U')) THEN
144 IF (INCX.EQ.1) THEN
146 IF (X(J).NE.ZERO) THEN
156 END IF
162 IF (X(JX).NE.ZERO) THEN
172 END IF
176 END IF
181 IF (INCX.EQ.1) THEN
183 IF (X(J).NE.ZERO) THEN
193 END IF
199 IF (X(JX).NE.ZERO) THEN
209 END IF
213 END IF
214 END IF
