Lines Matching defs:AP
1 SUBROUTINE ZHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP)
8 DOUBLE COMPLEX AP(*),X(*),Y(*)
27 * array AP as follows:
30 * supplied in AP.
33 * supplied in AP.
68 * AP - COMPLEX*16 array of DIMENSION at least
70 * Before entry with UPLO = 'U' or 'u', the array AP must
72 * packed sequentially, column by column, so that AP( 1 )
73 * contains a( 1, 1 ), AP( 2 ) and AP( 3 ) contain a( 1, 2 )
75 * AP is overwritten by the upper triangular part of the
77 * Before entry with UPLO = 'L' or 'l', the array AP must
79 * packed sequentially, column by column, so that AP( 1 )
80 * contains a( 1, 1 ), AP( 2 ) and AP( 3 ) contain a( 2, 1 )
82 * AP is overwritten by the lower triangular part of the
159 * Start the operations. In this version the elements of the array AP
160 * are accessed sequentially with one pass through AP.
165 * Form A when upper triangle is stored in AP.
174 AP(K) = AP(K) + X(I)*TEMP1 + Y(I)*TEMP2
177 AP(KK+J-1) = DBLE(AP(KK+J-1)) +
180 AP(KK+J-1) = DBLE(AP(KK+J-1))
192 AP(K) = AP(K) + X(IX)*TEMP1 + Y(IY)*TEMP2
196 AP(KK+J-1) = DBLE(AP(KK+J-1)) +
199 AP(KK+J-1) = DBLE(AP(KK+J-1))
208 * Form A when lower triangle is stored in AP.
215 AP(KK) = DBLE(AP(KK)) +
219 AP(K) = AP(K) + X(I)*TEMP1 + Y(I)*TEMP2
223 AP(KK) = DBLE(AP(KK))
232 AP(KK) = DBLE(AP(KK)) +
239 AP(K) = AP(K) + X(IX)*TEMP1 + Y(IY)*TEMP2
242 AP(KK) = DBLE(AP(KK))
