subroutine kmove_wtk_zplane(w_in, z, direct, w_out, s_3d) * * begin_doc * * Move a track in the forward/backward/either direction to the specified * z position. The current magnetic field is used to transport the track. * * Note: if the track cannot be moved in the desired direction, the * track is not moved at all (s_3d = 0). * * Input Parameters: * w_in(10) double precision array * Input track parameters * * z double precision variable * Z position 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: * w_out(10) double precision array * Output track parameters * * s_3d double precision variable * 3-D arc length the track moved * * * Other routines: * * Notes: * * Author: Paul Avery Created: Thu Aug 28 17:35:32 EDT 1997 * * Major revisions: * * * end_doc