Lines Matching refs:TEMP1
137 DOUBLE PRECISION TEMP1,TEMP2 local
228 TEMP1 = ALPHA*X(J)
232 Y(I) = Y(I) + TEMP1*A(L+I,J)
235 Y(J) = Y(J) + TEMP1*A(KPLUS1,J) + ALPHA*TEMP2
241 TEMP1 = ALPHA*X(JX)
247 Y(IY) = Y(IY) + TEMP1*A(L+I,J)
252 Y(JY) = Y(JY) + TEMP1*A(KPLUS1,J) + ALPHA*TEMP2
267 TEMP1 = ALPHA*X(J)
269 Y(J) = Y(J) + TEMP1*A(1,J)
272 Y(I) = Y(I) + TEMP1*A(L+I,J)
281 TEMP1 = ALPHA*X(JX)
283 Y(JY) = Y(JY) + TEMP1*A(1,J)
290 Y(IY) = Y(IY) + TEMP1*A(L+I,J)