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 phi = rw(index + phifms) CALL svxloo(phi, phis) ! find nearest SVX track dphi = ABS(phi-phis) RETURN END
This routine has a bug.