Lines Matching refs:AP

1       SUBROUTINE ZHPR(UPLO,N,ALPHA,X,INCX,AP)  argument
8       DOUBLE COMPLEX AP(*),X(*)  local
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))
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))