Lines Matching full:alpha
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
47 * ALPHA - DOUBLE PRECISION.
48 * On entry, ALPHA specifies the scalar alpha.
174 IF ((N.EQ.0) .OR. ((ALPHA.EQ.ZERO).AND. (BETA.EQ.ONE))) RETURN
220 IF (ALPHA.EQ.ZERO) RETURN
228 TEMP1 = ALPHA*X(J)
235 Y(J) = Y(J) + TEMP1*A(KPLUS1,J) + ALPHA*TEMP2
241 TEMP1 = ALPHA*X(JX)
252 Y(JY) = Y(JY) + TEMP1*A(KPLUS1,J) + ALPHA*TEMP2
267 TEMP1 = ALPHA*X(J)
275 Y(J) = Y(J) + ALPHA*TEMP2
281 TEMP1 = ALPHA*X(JX)
293 Y(JY) = Y(JY) + ALPHA*TEMP2
