Lines Matching defs:AP
1 SUBROUTINE ZHPR(UPLO,N,ALPHA,X,INCX,AP)
8 DOUBLE COMPLEX AP(*),X(*)
27 * array AP as follows:
30 * supplied in AP.
33 * supplied in AP.
57 * AP - COMPLEX*16 array of DIMENSION at least
59 * Before entry with UPLO = 'U' or 'u', the array AP must
61 * packed sequentially, column by column, so that AP( 1 )
62 * contains a( 1, 1 ), AP( 2 ) and AP( 3 ) contain a( 1, 2 )
64 * AP is overwritten by the upper triangular part of the
66 * Before entry with UPLO = 'L' or 'l', the array AP must
68 * packed sequentially, column by column, so that AP( 1 )
69 * contains a( 1, 1 ), AP( 2 ) and AP( 3 ) contain a( 2, 1 )
71 * AP is overwritten by the lower triangular part of the
136 * Start the operations. In this version the elements of the array AP
137 * are accessed sequentially with one pass through AP.
142 * Form A when upper triangle is stored in AP.
150 AP(K) = AP(K) + X(I)*TEMP
153 AP(KK+J-1) = DBLE(AP(KK+J-1)) + DBLE(X(J)*TEMP)
155 AP(KK+J-1) = DBLE(AP(KK+J-1))
166 AP(K) = AP(K) + X(IX)*TEMP
169 AP(KK+J-1) = DBLE(AP(KK+J-1)) + DBLE(X(JX)*TEMP)
171 AP(KK+J-1) = DBLE(AP(KK+J-1))
179 * Form A when lower triangle is stored in AP.
185 AP(KK) = DBLE(AP(KK)) + DBLE(TEMP*X(J))
188 AP(K) = AP(K) + X(I)*TEMP
192 AP(KK) = DBLE(AP(KK))
201 AP(KK) = DBLE(AP(KK)) + DBLE(TEMP*X(JX))
205 AP(K) = AP(K) + X(IX)*TEMP
208 AP(KK) = DBLE(AP(KK))
