5 * Revision 1.1.1.1 1995/10/24 10:21:46 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.25 by S.Giani
12 SUBROUTINE GUSWIM(CHARGE,STEP,VECT,VOUT)
14 C. ******************************************************************
16 C. * User routine to control tracking of one track *
17 C. * in a magnetic field *
19 C. * ==>Called by : GTELEC,GTHADR,GTMUON *
21 C. ******************************************************************
23 #include "geant321/gctmed.inc"
24 DIMENSION VECT(6),VOUT(6)
26 C. ------------------------------------------------------------------
29 CALL GHELX3(FIELDM*CHARGE,STEP,VECT,VOUT)
30 ELSEIF(IFIELD.EQ.2)THEN
31 CALL GHELIX(CHARGE,STEP,VECT,VOUT)
33 CALL GRKUTA(CHARGE,STEP,VECT,VOUT)