Lines Matching refs:AP
1 SUBROUTINE ZTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) argument
7 DOUBLE COMPLEX AP(*),X(*) local
172 X(I) = X(I) + TEMP*AP(K)
175 IF (NOUNIT) X(J) = X(J)*AP(KK+J-1)
186 X(IX) = X(IX) + TEMP*AP(K)
189 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
203 X(I) = X(I) + TEMP*AP(K)
206 IF (NOUNIT) X(J) = X(J)*AP(KK-N+J)
218 X(IX) = X(IX) + TEMP*AP(K)
221 IF (NOUNIT) X(JX) = X(JX)*AP(KK-N+J)
239 IF (NOUNIT) TEMP = TEMP*AP(KK)
241 TEMP = TEMP + AP(K)*X(I)
245 IF (NOUNIT) TEMP = TEMP*DCONJG(AP(KK))
247 TEMP = TEMP + DCONJG(AP(K))*X(I)
260 IF (NOUNIT) TEMP = TEMP*AP(KK)
263 TEMP = TEMP + AP(K)*X(IX)
266 IF (NOUNIT) TEMP = TEMP*DCONJG(AP(KK))
269 TEMP = TEMP + DCONJG(AP(K))*X(IX)
284 IF (NOUNIT) TEMP = TEMP*AP(KK)
286 TEMP = TEMP + AP(K)*X(I)
290 IF (NOUNIT) TEMP = TEMP*DCONJG(AP(KK))
292 TEMP = TEMP + DCONJG(AP(K))*X(I)
305 IF (NOUNIT) TEMP = TEMP*AP(KK)
308 TEMP = TEMP + AP(K)*X(IX)
311 IF (NOUNIT) TEMP = TEMP*DCONJG(AP(KK))
314 TEMP = TEMP + DCONJG(AP(K))*X(IX)