H A D | ch.f | 2 SUBROUTINE CH (NM, N, AR, AI, W, MATZ, ZR, ZI, FV1, FV2, FM1, argument 80 INTEGER I,J,N,NM,IERR,MATZ 81 REAL AR(NM,*),AI(NM,*),W(*),ZR(NM,*),ZI(NM,*) 85 IF (N .LE. NM) GO TO 10 89 10 CALL HTRIDI(NM,N,AR,AI,W,FV1,FV2,FM1) 104 CALL TQL2(NM,N,W,FV1,ZR,IERR) 106 CALL HTRIBK(NM,N,AR,AI,FM1,N,ZR,ZI)
|