H A D | rsb.f | 1 SUBROUTINE RSB(NM,N,MB,A,W,MATZ,Z,FV1,FV2,IERR) argument 65 INTEGER N,MB,NM,IERR,MATZ 66 REAL A(NM,MB),W(N),Z(NM,N),FV1(N),FV2(N) 70 IF (N .LE. NM) GO TO 5 83 CALL BANDR(NM,N,MB,A,W,FV1,FV2,TF,Z) 88 CALL BANDR(NM,N,MB,A,W,FV1,FV1,TF,Z) 89 CALL TQL2(NM,N,W,FV1,Z,IERR)
|