Lines Matching refs:ALPHA
1 SUBROUTINE ZHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
3 DOUBLE 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
42 * ALPHA - COMPLEX*16 .
43 * On entry, ALPHA specifies the scalar alpha.
142 IF ((N.EQ.0) .OR. ((ALPHA.EQ.ZERO).AND. (BETA.EQ.ONE))) RETURN
188 IF (ALPHA.EQ.ZERO) RETURN
196 TEMP1 = ALPHA*X(J)
204 Y(J) = Y(J) + TEMP1*DBLE(AP(KK+J-1)) + ALPHA*TEMP2
211 TEMP1 = ALPHA*X(JX)
221 Y(JY) = Y(JY) + TEMP1*DBLE(AP(KK+J-1)) + ALPHA*TEMP2
233 TEMP1 = ALPHA*X(J)
242 Y(J) = Y(J) + ALPHA*TEMP2
249 TEMP1 = ALPHA*X(JX)
260 Y(JY) = Y(JY) + ALPHA*TEMP2
