Lines Matching full:alpha
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
47 * ALPHA - REAL .
48 * On entry, ALPHA specifies the scalar alpha.
176 IF ((N.EQ.0) .OR. ((ALPHA.EQ.ZERO).AND. (BETA.EQ.ONE))) RETURN
222 IF (ALPHA.EQ.ZERO) RETURN
230 TEMP1 = ALPHA*X(J)
237 Y(J) = Y(J) + TEMP1*A(KPLUS1,J) + ALPHA*TEMP2
243 TEMP1 = ALPHA*X(JX)
254 Y(JY) = Y(JY) + TEMP1*A(KPLUS1,J) + ALPHA*TEMP2
269 TEMP1 = ALPHA*X(J)
277 Y(J) = Y(J) + ALPHA*TEMP2
283 TEMP1 = ALPHA*X(JX)
295 Y(JY) = Y(JY) + ALPHA*TEMP2
