Lines Matching refs:TEMP
95 DOUBLE COMPLEX TEMP
147 TEMP = ALPHA*DCONJG(X(J))
150 AP(K) = AP(K) + X(I)*TEMP
153 AP(KK+J-1) = DBLE(AP(KK+J-1)) + DBLE(X(J)*TEMP)
163 TEMP = ALPHA*DCONJG(X(JX))
166 AP(K) = AP(K) + X(IX)*TEMP
169 AP(KK+J-1) = DBLE(AP(KK+J-1)) + DBLE(X(JX)*TEMP)
184 TEMP = ALPHA*DCONJG(X(J))
185 AP(KK) = DBLE(AP(KK)) + DBLE(TEMP*X(J))
188 AP(K) = AP(K) + X(I)*TEMP
200 TEMP = ALPHA*DCONJG(X(JX))
201 AP(KK) = DBLE(AP(KK)) + DBLE(TEMP*X(JX))
205 AP(K) = AP(K) + X(IX)*TEMP
