Lines Matching refs:IF
106 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
108 ELSE IF (N.LT.0) THEN
110 ELSE IF (INCX.EQ.0) THEN
112 END IF
113 IF (INFO.NE.0) THEN
116 END IF
118 * Quick return if possible.
120 IF ((N.EQ.0) .OR. (ALPHA.EQ.ZERO)) RETURN
122 * Set the start point in X if the increment is not unity.
124 IF (INCX.LE.0) THEN
126 ELSE IF (INCX.NE.1) THEN
128 END IF
134 IF (LSAME(UPLO,'U')) THEN
138 IF (INCX.EQ.1) THEN
140 IF (X(J).NE.ZERO) THEN
147 END IF
153 IF (X(JX).NE.ZERO) THEN
160 END IF
164 END IF
169 IF (INCX.EQ.1) THEN
171 IF (X(J).NE.ZERO) THEN
178 END IF
184 IF (X(JX).NE.ZERO) THEN
191 END IF
195 END IF
196 END IF
