Lines Matching refs:AR
1 subroutine DHERQL(AR, AI, LDA, N, EVAL, VR, VI, WORK, IERR) argument
70 double precision AR(LDA,N),AI(LDA,N),EVAL(N),WORK(*) local
81 EVAL(I) = AR(I,I)
85 AR(1,1) = 1.0d0
100 SCALE = SCALE + abs(AR(I,K)) + abs(AI(I,K))
110 AR(I,K) = AR(I,K) / SCALE
112 H = H + AR(I,K) * AR(I,K) + AI(I,K) * AI(I,K)
117 F = abs(AR(I,L))
126 AR(I,L) = G
130 WORK(N1+L) = (AI(I,L) * WORK(N2+I) - AR(I,L) * WORK(N1+I)) / F
131 SI = (AR(I,L) * WORK(N2 + I) + AI(I,L) * WORK(N1 + I)) / F
134 AR(I,L) = G * AR(I,L)
144 G = G + AR(J,K) * AR(I,K) + AI(J,K) * AI(I,K)
145 GI = GI - AR(J,K) * AI(I,K) + AI(J,K) * AR(I,K)
149 G = G + AR(K,J) * AR(I,K) - AI(K,J) * AI(I,K)
150 GI = GI - AR(K,J) * AI(I,K) - AI(K,J) * AR(I,K)
155 F = F + WORK(J) * AR(I,J) - WORK(N2 + J) * AI(I,J)
161 F = AR(I,J)
169 AR(J,K) = AR(J,K) - F * WORK(K) - G * AR(I,K)
172 x - FI * WORK(K) - GI * AR(I,K)
177 AR(I,K) = SCALE * AR(I,K)
183 EVAL(I) = AR(I,I)
184 AR(I,I) = HH
221 S = S + AR(I,K) * VR(K,J) - AI(I,K) * VI(K,J)
222 SI = SI + AR(I,K) * VI(K,J) + AI(I,K) * VR(K,J)
229 VR(K,J) = VR(K,J) - S * AR(I,K) - SI * AI(I,K)
230 VI(K,J) = VI(K,J) - SI * AR(I,K) + S * AI(I,K)