subroutine ktrk_move_radius(ktrk, radius, direct, error) * * begin_doc * * Move a track and its covariance matrix to the specified radius. * The current B field is used to transport the track. * * Note: The current and unconstrainted track parameters are both moved, * but their final points may vary slightly. * * Input Parameters: * ktrk integer variable * Track number * * radius double precision variable * Radius to move to * * direct integer variable * Direction in which to move the track * +1 ==> project track forward only * 0 ==> project track by smallest amount forward/backward * -1 ==> project track backward only * * * Output Parameters: * error integer variable * = 0 if all OK * > 0 if error * * Other routines: * * Notes: * * Author: Paul Avery Created: Tue Sep 9 22:58:55 EDT 1997 * * Major revisions: * * * end_doc