Lines Matching refs:THEN
73 * supplied as zero then Y need not be set on input.
119 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
121 ELSE IF (N.LT.0) THEN
123 ELSE IF (INCX.EQ.0) THEN
125 ELSE IF (INCY.EQ.0) THEN
128 IF (INFO.NE.0) THEN
139 IF (INCX.GT.0) THEN
144 IF (INCY.GT.0) THEN
155 IF (BETA.NE.ONE) THEN
156 IF (INCY.EQ.1) THEN
157 IF (BETA.EQ.ZERO) THEN
168 IF (BETA.EQ.ZERO) THEN
183 IF (LSAME(UPLO,'U')) THEN
187 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
224 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
