Lines Matching refs:Y
1 SUBROUTINE SSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) argument
8 REAL AP(*),X(*),Y(*) local
159 Y(I) = ZERO
163 Y(I) = BETA*Y(I)
170 Y(IY) = ZERO
175 Y(IY) = BETA*Y(IY)
193 Y(I) = Y(I) + TEMP1*AP(K)
197 Y(J) = Y(J) + TEMP1*AP(KK+J-1) + ALPHA*TEMP2
209 Y(IY) = Y(IY) + TEMP1*AP(K)
214 Y(JY) = Y(JY) + TEMP1*AP(KK+J-1) + ALPHA*TEMP2
228 Y(J) = Y(J) + TEMP1*AP(KK)
231 Y(I) = Y(I) + TEMP1*AP(K)
235 Y(J) = Y(J) + ALPHA*TEMP2
244 Y(JY) = Y(JY) + TEMP1*AP(KK)
250 Y(IY) = Y(IY) + TEMP1*AP(K)
253 Y(JY) = Y(JY) + ALPHA*TEMP2