Lines Matching refs:TEMP1
106 COMPLEX TEMP1,TEMP2 local
170 TEMP1 = ALPHA*CONJG(Y(J))
174 AP(K) = AP(K) + X(I)*TEMP1 + Y(I)*TEMP2
178 + REAL(X(J)*TEMP1+Y(J)*TEMP2)
187 TEMP1 = ALPHA*CONJG(Y(JY))
192 AP(K) = AP(K) + X(IX)*TEMP1 + Y(IY)*TEMP2
197 + REAL(X(JX)*TEMP1+Y(JY)*TEMP2)
213 TEMP1 = ALPHA*CONJG(Y(J))
216 + REAL(X(J)*TEMP1+Y(J)*TEMP2)
219 AP(K) = AP(K) + X(I)*TEMP1 + Y(I)*TEMP2
230 TEMP1 = ALPHA*CONJG(Y(JY))
233 + REAL(X(JX)*TEMP1+Y(JY)*TEMP2)
239 AP(K) = AP(K) + X(IX)*TEMP1 + Y(IY)*TEMP2