Lines Matching refs:TEMP1
109 DOUBLE COMPLEX TEMP1,TEMP2 local
196 TEMP1 = ALPHA*X(J)
200 Y(I) = Y(I) + TEMP1*AP(K)
204 Y(J) = Y(J) + TEMP1*DBLE(AP(KK+J-1)) + ALPHA*TEMP2
211 TEMP1 = ALPHA*X(JX)
216 Y(IY) = Y(IY) + TEMP1*AP(K)
221 Y(JY) = Y(JY) + TEMP1*DBLE(AP(KK+J-1)) + ALPHA*TEMP2
233 TEMP1 = ALPHA*X(J)
235 Y(J) = Y(J) + TEMP1*DBLE(AP(KK))
238 Y(I) = Y(I) + TEMP1*AP(K)
249 TEMP1 = ALPHA*X(JX)
251 Y(JY) = Y(JY) + TEMP1*DBLE(AP(KK))
257 Y(IY) = Y(IY) + TEMP1*AP(K)