H A D | cg.f | 1 SUBROUTINE CG(NM,N,AR,AI,WR,WI,MATZ,ZR,ZI,FV1,FV2,FV3,IERR) argument 56 INTEGER N,NM,IS1,IS2,IERR,MATZ 57 REAL AR(NM,N),AI(NM,N),WR(N),WI(N),ZR(NM,N),ZI(NM,N) 61 IF (N .LE. NM) GO TO 10 65 10 CALL CBAL(NM,N,AR,AI,IS1,IS2,FV1) 66 CALL CORTH(NM,N,IS1,IS2,AR,AI,FV2,FV3) 69 CALL COMQR(NM,N,IS1,IS2,AR,AI,WR,WI,IERR) 72 20 CALL COMQR2(NM,N,IS1,IS2,FV2,FV3,AR,AI,WR,WI,ZR,ZI,IERR) 74 CALL CBABK2(NM,N,IS1,IS2,FV1,N,ZR,ZI)
|