Lines Matching defs:AP
1 SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
7 DOUBLE PRECISION AP(*),X(*)
61 * AP - DOUBLE PRECISION array of DIMENSION at least
63 * Before entry with UPLO = 'U' or 'u', the array AP must
65 * column by column, so that AP( 1 ) contains a( 1, 1 ),
66 * AP( 2 ) and AP( 3 ) contain a( 1, 2 ) and a( 2, 2 )
68 * Before entry with UPLO = 'L' or 'l', the array AP must
70 * column by column, so that AP( 1 ) contains a( 1, 1 ),
71 * AP( 2 ) and AP( 3 ) contain a( 2, 1 ) and a( 3, 1 )
153 * Start the operations. In this version the elements of AP are
154 * accessed sequentially with one pass through AP.
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)
