Lines Matching refs:BETA
1 SUBROUTINE SSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
3 REAL ALPHA,BETA
16 * y := alpha*A*x + beta*y,
18 * where alpha and beta are scalars, x and y are n element vectors and
71 * BETA - REAL .
72 * On entry, BETA specifies the scalar beta. When BETA is
135 IF ((N.EQ.0) .OR. ((ALPHA.EQ.ZERO).AND. (BETA.EQ.ONE))) RETURN
153 * First form y := beta*y.
155 IF (BETA.NE.ONE) THEN
157 IF (BETA.EQ.ZERO) THEN
163 Y(I) = BETA*Y(I)
168 IF (BETA.EQ.ZERO) THEN
175 Y(IY) = BETA*Y(IY)
