Lines Matching refs:AP
1 SUBROUTINE SSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) argument
8 REAL AP(*),X(*),Y(*) local
193 Y(I) = Y(I) + TEMP1*AP(K)
194 TEMP2 = TEMP2 + AP(K)*X(I)
197 Y(J) = Y(J) + TEMP1*AP(KK+J-1) + ALPHA*TEMP2
209 Y(IY) = Y(IY) + TEMP1*AP(K)
210 TEMP2 = TEMP2 + AP(K)*X(IX)
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)
232 TEMP2 = TEMP2 + AP(K)*X(I)
244 Y(JY) = Y(JY) + TEMP1*AP(KK)
250 Y(IY) = Y(IY) + TEMP1*AP(K)
251 TEMP2 = TEMP2 + AP(K)*X(IX)