Lines Matching refs:AR
105 SUBROUTINE DPHTRI(NM,N,AR,D,E,E2,TAU) argument
108 DOUBLE PRECISION AR(NM,N),D(N),E(N),E2(N),TAU(2,N)
170 100 D(I) = AR(I,I)
181 120 SCALE = SCALE + DABS(AR(I,K)) + DABS(AR(K,I))
191 AR(I,K) = AR(I,K) / SCALE
192 AR(K,I) = AR(K,I) / SCALE
193 H = H + AR(I,K) * AR(I,K) + AR(K,I) * AR(K,I)
199 F=DSQRT(AR(I,L)**2+AR(L,I)**2)
203 TAU(1,L) = (AR(L,I) * TAU(2,I) - AR(I,L) * TAU(1,I)) / F
204 SI = (AR(I,L) * TAU(2,I) + AR(L,I) * TAU(1,I)) / F
207 AR(I,L) = G * AR(I,L)
208 AR(L,I) = G * AR(L,I)
213 AR(I,L) = G
221 AJUNK=AR(K,J)
223 G = G + AR(J,K) * AR(I,K) + AJUNK * AR(K,I)
224 GI = GI - AR(J,K) * AR(K,I) + AJUNK * AR(I,K)
231 G = G + AR(K,J) * AR(I,K) - AR(J,K) * AR(K,I)
232 GI = GI - AR(K,J) * AR(K,I)- AR(J,K) * AR(I,K)
237 F = F + E(J) * AR(I,J) - TAU(2,J) * AR(J,I)
243 F = AR(I,J)
246 FI = -AR(J,I)
251 AJUNK=AR(K,J)
253 AR(J,K) = AR(J,K) - F * E(K) - G * AR(I,K)
254 X + FI * TAU(2,K) + GI * AR(K,I)
256 AR(K,J) = AR(K,J) - F * TAU(2,K) - G * AR(K,I)
257 X - FI * E(K) - GI * AR(I,K)
259 17 AID(K)=AID(K) - F * TAU(2,K) - G * AR(K,I)
260 X - FI * E(K) - GI * AR(I,K)
264 AR(I,K) = SCALE * AR(I,K)
265 AR(K,I) = SCALE * AR(K,I)
270 D(I) = AR(I,I)
271 AR(I,I) = HH
442 SUBROUTINE DPHTBK(NM,N,AR,TAU,M,ZR,ZI)
445 DOUBLE PRECISION AR(NM,N),TAU(2,N),ZR(NM,M),ZI(NM,M)
514 S = S + AR(I,K) * ZR(K,J) - AR(K,I) * ZI(K,J)
515 SI = SI + AR(I,K) * ZI(K,J) + AR(K,I) * ZR(K,J)
522 ZR(K,J) = ZR(K,J) - S * AR(I,K) - SI * AR(K,I)
523 ZI(K,J) = ZI(K,J) - SI * AR(I,K) + S * AR(K,I)