Lines Matching refs:TEMP
146 DOUBLE COMPLEX TEMP local
213 TEMP = X(J)
216 X(I) = X(I) + TEMP*A(L+I,J)
225 TEMP = X(JX)
229 X(IX) = X(IX) + TEMP*A(L+I,J)
242 TEMP = X(J)
245 X(I) = X(I) + TEMP*A(L+I,J)
255 TEMP = X(JX)
259 X(IX) = X(IX) + TEMP*A(L+I,J)
277 TEMP = X(J)
280 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
282 TEMP = TEMP + A(L+I,J)*X(I)
285 IF (NOUNIT) TEMP = TEMP*DCONJG(A(KPLUS1,J))
287 TEMP = TEMP + DCONJG(A(L+I,J))*X(I)
290 X(J) = TEMP
296 TEMP = X(JX)
301 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
303 TEMP = TEMP + A(L+I,J)*X(IX)
307 IF (NOUNIT) TEMP = TEMP*DCONJG(A(KPLUS1,J))
309 TEMP = TEMP + DCONJG(A(L+I,J))*X(IX)
313 X(JX) = TEMP
320 TEMP = X(J)
323 IF (NOUNIT) TEMP = TEMP*A(1,J)
325 TEMP = TEMP + A(L+I,J)*X(I)
328 IF (NOUNIT) TEMP = TEMP*DCONJG(A(1,J))
330 TEMP = TEMP + DCONJG(A(L+I,J))*X(I)
333 X(J) = TEMP
338 TEMP = X(JX)
343 IF (NOUNIT) TEMP = TEMP*A(1,J)
345 TEMP = TEMP + A(L+I,J)*X(IX)
349 IF (NOUNIT) TEMP = TEMP*DCONJG(A(1,J))
351 TEMP = TEMP + DCONJG(A(L+I,J))*X(IX)
355 X(JX) = TEMP