Lines Matching refs:beta
1 SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
3 COMPLEX ALPHA,BETA
16 * y := alpha*A*x + beta*y,
18 * where alpha and beta are scalars, x and y are n element vectors and
73 * BETA - COMPLEX .
74 * On entry, BETA specifies the scalar beta. When BETA is
142 IF ((N.EQ.0) .OR. ((ALPHA.EQ.ZERO).AND. (BETA.EQ.ONE))) RETURN
160 * First form y := beta*y.
162 IF (BETA.NE.ONE) THEN
164 IF (BETA.EQ.ZERO) THEN
170 Y(I) = BETA*Y(I)
175 IF (BETA.EQ.ZERO) THEN
182 Y(IY) = BETA*Y(IY)