Lines Matching refs:TEMP
109 DOUBLE PRECISION TEMP
169 TEMP = X(J)
172 X(I) = X(I) - TEMP*AP(K)
183 TEMP = X(JX)
187 X(IX) = X(IX) - TEMP*AP(K)
200 TEMP = X(J)
203 X(I) = X(I) - TEMP*AP(K)
214 TEMP = X(JX)
218 X(IX) = X(IX) - TEMP*AP(K)
234 TEMP = X(J)
237 TEMP = TEMP - AP(K)*X(I)
240 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
241 X(J) = TEMP
247 TEMP = X(JX)
250 TEMP = TEMP - AP(K)*X(IX)
253 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
254 X(JX) = TEMP
263 TEMP = X(J)
266 TEMP = TEMP - AP(K)*X(I)
269 IF (NOUNIT) TEMP = TEMP/AP(KK-N+J)
270 X(J) = TEMP
277 TEMP = X(JX)
280 TEMP = TEMP - AP(K)*X(IX)
283 IF (NOUNIT) TEMP = TEMP/AP(KK-N+J)
284 X(JX) = TEMP
