Lines Matching refs:AP
1 SUBROUTINE ZHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) argument
8 DOUBLE COMPLEX AP(*),X(*),Y(*) local
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))
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))