Lines Matching refs:ALPHA
1 SUBROUTINE SSPMV(UPLO,N,ALPHA,AP,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
42 * ALPHA - REAL .
43 * On entry, ALPHA specifies the scalar alpha.
135 IF ((N.EQ.0) .OR. ((ALPHA.EQ.ZERO).AND. (BETA.EQ.ONE))) RETURN
181 IF (ALPHA.EQ.ZERO) RETURN
189 TEMP1 = ALPHA*X(J)
197 Y(J) = Y(J) + TEMP1*AP(KK+J-1) + ALPHA*TEMP2
204 TEMP1 = ALPHA*X(JX)
214 Y(JY) = Y(JY) + TEMP1*AP(KK+J-1) + ALPHA*TEMP2
226 TEMP1 = ALPHA*X(J)
235 Y(J) = Y(J) + ALPHA*TEMP2
242 TEMP1 = ALPHA*X(JX)
253 Y(JY) = Y(JY) + ALPHA*TEMP2
