Lines Matching refs:AP
1 SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) argument
7 DOUBLE PRECISION AP(*),X(*) local
168 X(I) = X(I) + TEMP*AP(K)
171 IF (NOUNIT) X(J) = X(J)*AP(KK+J-1)
182 X(IX) = X(IX) + TEMP*AP(K)
185 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
199 X(I) = X(I) + TEMP*AP(K)
202 IF (NOUNIT) X(J) = X(J)*AP(KK-N+J)
214 X(IX) = X(IX) + TEMP*AP(K)
217 IF (NOUNIT) X(JX) = X(JX)*AP(KK-N+J)
233 IF (NOUNIT) TEMP = TEMP*AP(KK)
236 TEMP = TEMP + AP(K)*X(I)
247 IF (NOUNIT) TEMP = TEMP*AP(KK)
250 TEMP = TEMP + AP(K)*X(IX)
262 IF (NOUNIT) TEMP = TEMP*AP(KK)
265 TEMP = TEMP + AP(K)*X(I)
276 IF (NOUNIT) TEMP = TEMP*AP(KK)
279 TEMP = TEMP + AP(K)*X(IX)