Lines Matching refs:ALPHA
1 SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
3 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
47 * ALPHA - COMPLEX .
48 * On entry, ALPHA specifies the scalar alpha.
180 IF ((N.EQ.0) .OR. ((ALPHA.EQ.ZERO).AND. (BETA.EQ.ONE))) RETURN
226 IF (ALPHA.EQ.ZERO) RETURN
234 TEMP1 = ALPHA*X(J)
241 Y(J) = Y(J) + TEMP1*REAL(A(KPLUS1,J)) + ALPHA*TEMP2
247 TEMP1 = ALPHA*X(JX)
258 Y(JY) = Y(JY) + TEMP1*REAL(A(KPLUS1,J)) + ALPHA*TEMP2
273 TEMP1 = ALPHA*X(J)
281 Y(J) = Y(J) + ALPHA*TEMP2
287 TEMP1 = ALPHA*X(JX)
299 Y(JY) = Y(JY) + ALPHA*TEMP2
