Lines Matching refs:TEMP1
139 REAL TEMP1,TEMP2 local
230 TEMP1 = ALPHA*X(J)
234 Y(I) = Y(I) + TEMP1*A(L+I,J)
237 Y(J) = Y(J) + TEMP1*A(KPLUS1,J) + ALPHA*TEMP2
243 TEMP1 = ALPHA*X(JX)
249 Y(IY) = Y(IY) + TEMP1*A(L+I,J)
254 Y(JY) = Y(JY) + TEMP1*A(KPLUS1,J) + ALPHA*TEMP2
269 TEMP1 = ALPHA*X(J)
271 Y(J) = Y(J) + TEMP1*A(1,J)
274 Y(I) = Y(I) + TEMP1*A(L+I,J)
283 TEMP1 = ALPHA*X(JX)
285 Y(JY) = Y(JY) + TEMP1*A(1,J)
292 Y(IY) = Y(IY) + TEMP1*A(L+I,J)