Lines Matching refs:BETA
1 SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
3 DOUBLE PRECISION ALPHA,BETA
16 * y := alpha*A*x + beta*y,
18 * where alpha and beta are scalars, x and y are n element vectors and
107 * BETA - DOUBLE PRECISION.
108 * On entry, BETA specifies the scalar beta.
174 IF ((N.EQ.0) .OR. ((ALPHA.EQ.ZERO).AND. (BETA.EQ.ONE))) RETURN
192 * First form y := beta*y.
194 IF (BETA.NE.ONE) THEN
196 IF (BETA.EQ.ZERO) THEN
202 Y(I) = BETA*Y(I)
207 IF (BETA.EQ.ZERO) THEN
214 Y(IY) = BETA*Y(IY)
