Lines Matching refs:TEMP
109 DOUBLE COMPLEX TEMP
173 TEMP = X(J)
176 X(I) = X(I) - TEMP*AP(K)
187 TEMP = X(JX)
191 X(IX) = X(IX) - TEMP*AP(K)
204 TEMP = X(J)
207 X(I) = X(I) - TEMP*AP(K)
218 TEMP = X(JX)
222 X(IX) = X(IX) - TEMP*AP(K)
238 TEMP = X(J)
242 TEMP = TEMP - AP(K)*X(I)
245 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
248 TEMP = TEMP - DCONJG(AP(K))*X(I)
251 IF (NOUNIT) TEMP = TEMP/DCONJG(AP(KK+J-1))
253 X(J) = TEMP
259 TEMP = X(JX)
263 TEMP = TEMP - AP(K)*X(IX)
266 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
269 TEMP = TEMP - DCONJG(AP(K))*X(IX)
272 IF (NOUNIT) TEMP = TEMP/DCONJG(AP(KK+J-1))
274 X(JX) = TEMP
283 TEMP = X(J)
287 TEMP = TEMP - AP(K)*X(I)
290 IF (NOUNIT) TEMP = TEMP/AP(KK-N+J)
293 TEMP = TEMP - DCONJG(AP(K))*X(I)
296 IF (NOUNIT) TEMP = TEMP/DCONJG(AP(KK-N+J))
298 X(J) = TEMP
305 TEMP = X(JX)
309 TEMP = TEMP - AP(K)*X(IX)
312 IF (NOUNIT) TEMP = TEMP/AP(KK-N+J)
315 TEMP = TEMP - DCONJG(AP(K))*X(IX)
318 IF (NOUNIT) TEMP = TEMP/DCONJG(AP(KK-N+J))
320 X(JX) = TEMP
