Home | History | Annotate | Download | only in fortran

Lines Matching refs:TEMP2

139       REAL TEMP1,TEMP2
231 TEMP2 = ZERO
235 TEMP2 = TEMP2 + A(L+I,J)*X(I)
237 Y(J) = Y(J) + TEMP1*A(KPLUS1,J) + ALPHA*TEMP2
244 TEMP2 = ZERO
250 TEMP2 = TEMP2 + A(L+I,J)*X(IX)
254 Y(JY) = Y(JY) + TEMP1*A(KPLUS1,J) + ALPHA*TEMP2
270 TEMP2 = ZERO
275 TEMP2 = TEMP2 + A(L+I,J)*X(I)
277 Y(J) = Y(J) + ALPHA*TEMP2
284 TEMP2 = ZERO
293 TEMP2 = TEMP2 + A(L+I,J)*X(IX)
295 Y(JY) = Y(JY) + ALPHA*TEMP2