Lines Matching full:beta
1 SUBROUTINE ZHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
3 DOUBLE 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
109 * BETA - COMPLEX*16 .
110 * On entry, BETA specifies the scalar beta.
180 IF ((N.EQ.0) .OR. ((ALPHA.EQ.ZERO).AND. (BETA.EQ.ONE))) RETURN
198 * First form y := beta*y.
200 IF (BETA.NE.ONE) THEN
202 IF (BETA.EQ.ZERO) THEN
208 Y(I) = BETA*Y(I)
213 IF (BETA.EQ.ZERO) THEN
220 Y(IY) = BETA*Y(IY)
