Lines Matching refs:BETA
1 SUBROUTINE SSBMV(UPLO,N,K,ALPHA,A,LDA,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
107 * BETA - REAL .
108 * On entry, BETA specifies the scalar beta.
176 IF ((N.EQ.0) .OR. ((ALPHA.EQ.ZERO).AND. (BETA.EQ.ONE))) RETURN
194 * First form y := beta*y.
196 IF (BETA.NE.ONE) THEN
198 IF (BETA.EQ.ZERO) THEN
204 Y(I) = BETA*Y(I)
209 IF (BETA.EQ.ZERO) THEN
216 Y(IY) = BETA*Y(IY)
