Lines Matching refs:TEMP1
143 COMPLEX TEMP1,TEMP2 local
234 TEMP1 = ALPHA*X(J)
238 Y(I) = Y(I) + TEMP1*A(L+I,J)
241 Y(J) = Y(J) + TEMP1*REAL(A(KPLUS1,J)) + ALPHA*TEMP2
247 TEMP1 = ALPHA*X(JX)
253 Y(IY) = Y(IY) + TEMP1*A(L+I,J)
258 Y(JY) = Y(JY) + TEMP1*REAL(A(KPLUS1,J)) + ALPHA*TEMP2
273 TEMP1 = ALPHA*X(J)
275 Y(J) = Y(J) + TEMP1*REAL(A(1,J))
278 Y(I) = Y(I) + TEMP1*A(L+I,J)
287 TEMP1 = ALPHA*X(JX)
289 Y(JY) = Y(JY) + TEMP1*REAL(A(1,J))
296 Y(IY) = Y(IY) + TEMP1*A(L+I,J)