H A D | ch.f | 1 SUBROUTINE CH(NM,N,AR,AI,W,MATZ,ZR,ZI,FV1,FV2,FM1,IERR) argument 55 INTEGER I,J,N,NM,IERR,MATZ 56 REAL AR(NM,N),AI(NM,N),W(N),ZR(NM,N),ZI(NM,N) 60 IF (N .LE. NM) GO TO 10 64 10 CALL HTRIDI(NM,N,AR,AI,W,FV1,FV2,FM1) 79 CALL TQL2(NM,N,W,FV1,ZR,IERR) 81 CALL HTRIBK(NM,N,AR,AI,FM1,N,ZR,ZI)
|