Lines Matching defs:AP
1 SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
7 COMPLEX AP(*),X(*)
61 * AP - COMPLEX 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 )
157 * Start the operations. In this version the elements of AP are
158 * accessed sequentially with one pass through AP.
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*CONJG(AP(KK))
247 TEMP = TEMP + CONJG(AP(K))*X(I)
260 IF (NOUNIT) TEMP = TEMP*AP(KK)
263 TEMP = TEMP + AP(K)*X(IX)
266 IF (NOUNIT) TEMP = TEMP*CONJG(AP(KK))
269 TEMP = TEMP + CONJG(AP(K))*X(IX)
284 IF (NOUNIT) TEMP = TEMP*AP(KK)
286 TEMP = TEMP + AP(K)*X(I)
290 IF (NOUNIT) TEMP = TEMP*CONJG(AP(KK))
292 TEMP = TEMP + CONJG(AP(K))*X(I)
305 IF (NOUNIT) TEMP = TEMP*AP(KK)
308 TEMP = TEMP + AP(K)*X(IX)
311 IF (NOUNIT) TEMP = TEMP*CONJG(AP(KK))
314 TEMP = TEMP + CONJG(AP(K))*X(IX)
