Lines Matching refs:TEMP2
109 DOUBLE COMPLEX TEMP1,TEMP2
197 TEMP2 = ZERO
201 TEMP2 = TEMP2 + DCONJG(AP(K))*X(I)
204 Y(J) = Y(J) + TEMP1*DBLE(AP(KK+J-1)) + ALPHA*TEMP2
212 TEMP2 = ZERO
217 TEMP2 = TEMP2 + DCONJG(AP(K))*X(IX)
221 Y(JY) = Y(JY) + TEMP1*DBLE(AP(KK+J-1)) + ALPHA*TEMP2
234 TEMP2 = ZERO
239 TEMP2 = TEMP2 + DCONJG(AP(K))*X(I)
242 Y(J) = Y(J) + ALPHA*TEMP2
250 TEMP2 = ZERO
258 TEMP2 = TEMP2 + DCONJG(AP(K))*X(IX)
260 Y(JY) = Y(JY) + ALPHA*TEMP2
