Lines Matching refs:AP
1 SUBROUTINE ZHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) argument
8 DOUBLE COMPLEX AP(*),X(*),Y(*) local
200 Y(I) = Y(I) + TEMP1*AP(K)
201 TEMP2 = TEMP2 + DCONJG(AP(K))*X(I)
204 Y(J) = Y(J) + TEMP1*DBLE(AP(KK+J-1)) + ALPHA*TEMP2
216 Y(IY) = Y(IY) + TEMP1*AP(K)
217 TEMP2 = TEMP2 + DCONJG(AP(K))*X(IX)
221 Y(JY) = Y(JY) + TEMP1*DBLE(AP(KK+J-1)) + ALPHA*TEMP2
235 Y(J) = Y(J) + TEMP1*DBLE(AP(KK))
238 Y(I) = Y(I) + TEMP1*AP(K)
239 TEMP2 = TEMP2 + DCONJG(AP(K))*X(I)
251 Y(JY) = Y(JY) + TEMP1*DBLE(AP(KK))
257 Y(IY) = Y(IY) + TEMP1*AP(K)
258 TEMP2 = TEMP2 + DCONJG(AP(K))*X(IX)