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