Lines Matching full:alpha
1 SUBROUTINE SSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP)
3 REAL ALPHA
16 * A := alpha*x*y' + alpha*y*x' + A,
18 * where alpha is a scalar, x and y are n element vectors and A is an
42 * ALPHA - REAL .
43 * On entry, ALPHA specifies the scalar alpha.
133 IF ((N.EQ.0) .OR. (ALPHA.EQ.ZERO)) RETURN
164 TEMP1 = ALPHA*Y(J)
165 TEMP2 = ALPHA*X(J)
177 TEMP1 = ALPHA*Y(JY)
178 TEMP2 = ALPHA*X(JX)
199 TEMP1 = ALPHA*Y(J)
200 TEMP2 = ALPHA*X(J)
212 TEMP1 = ALPHA*Y(JY)
213 TEMP2 = ALPHA*X(JX)
