This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / guser / guswim.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:21:46 cernlib
6* Geant
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/02 29/03/94 15.41.25 by S.Giani
11*-- Author :
12 SUBROUTINE GUSWIM(CHARGE,STEP,VECT,VOUT)
13C.
14C. ******************************************************************
15C. * *
16C. * User routine to control tracking of one track *
17C. * in a magnetic field *
18C. * *
19C. * ==>Called by : GTELEC,GTHADR,GTMUON *
20C. * *
21C. ******************************************************************
22C.
23#include "geant321/gctmed.inc"
24 DIMENSION VECT(6),VOUT(6)
25C.
26C. ------------------------------------------------------------------
27C.
28 IF (IFIELD.EQ.3)THEN
29 CALL GHELX3(FIELDM*CHARGE,STEP,VECT,VOUT)
30 ELSEIF(IFIELD.EQ.2)THEN
31 CALL GHELIX(CHARGE,STEP,VECT,VOUT)
32 ELSE
33 CALL GRKUTA(CHARGE,STEP,VECT,VOUT)
34 ENDIF
35C
36 END