Lines Matching refs:TEMP
146 DOUBLE PRECISION TEMP local
212 TEMP = X(J)
215 X(I) = X(I) + TEMP*A(L+I,J)
224 TEMP = X(JX)
228 X(IX) = X(IX) + TEMP*A(L+I,J)
241 TEMP = X(J)
244 X(I) = X(I) + TEMP*A(L+I,J)
254 TEMP = X(JX)
258 X(IX) = X(IX) + TEMP*A(L+I,J)
276 TEMP = X(J)
278 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
280 TEMP = TEMP + A(L+I,J)*X(I)
282 X(J) = TEMP
288 TEMP = X(JX)
292 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
294 TEMP = TEMP + A(L+I,J)*X(IX)
297 X(JX) = TEMP
304 TEMP = X(J)
306 IF (NOUNIT) TEMP = TEMP*A(1,J)
308 TEMP = TEMP + A(L+I,J)*X(I)
310 X(J) = TEMP
315 TEMP = X(JX)
319 IF (NOUNIT) TEMP = TEMP*A(1,J)
321 TEMP = TEMP + A(L+I,J)*X(IX)
324 X(JX) = TEMP