Lines Matching defs:HTRIDI

5231       SUBROUTINE HTRIDI(NM,N,AR,AI,D,E,E2,TAU)  subroutine
5288   100 D(I) = AR(I,I)
5298   120    SCALE = SCALE + DABS(AR(I,K)) + DABS(AI(I,K))
5303   130    E(I) = 0.0D0
5307   140    DO 150 K = 1, L
5311   150    CONTINUE
5327   160    TAU(1,L) = -TAU(1,I)
5330   170    F = 0.0D0
5339   180       CONTINUE
5347   200       CONTINUE
5349   220       E(J) = G / H
5352   240    CONTINUE
5369   260    CONTINUE
5371   270    DO 280 K = 1, L
5374   280    CONTINUE
5377   290    HH = D(I)
5381   300 CONTINUE