SUBROUTINE erdone(dphi) $$INCLUDE 'C$INC:BCS.INC' $$INCLUDE 'C$INC:DSFMUS.INC' $$INCLUDE 'YBOS$LIBRARY:ERRCOD.INC' REAL dphi ! difference between phi of FMUS and nearest SVXS INTEGER blocat ! YBOS bank finder INTEGER ind, index ! bank and data index INTEGER status ! error return status REAL phi ! FMUS phi REAL phis ! SVXS phi C................................. status = blocat(iw, 'FMUS', -1, ind, index) IF(status .NE. yesucc) RETURN ! no tracks, skip it CALL SVX_retrack ! retrack SVX using modified constants C== Look at the first track in FMU and compare to SVX status = blocat(iw, 'FMUS', -1, ind, index) ! <----- phi = rw(index + phifms) CALL svxloo(phi, phis) ! find nearest SVX track dphi = ABS(phi-phis) RETURN END
YBOS will not do named bank garbage collection unasked, but are you certain that SVX_retrack doesn't ask for it? If it did, the first FMUS will have a new bank index. Be safe, and find it again.