Steering routine to Track one Event

+-------------+                                               +----------##
| Geant 3.10  |               GEANT User's Guide              | TRAK110  ##
+-------------+                                               +----------##
                                   

Author(s) : R.Brun Submitted: 01.10.84 Origin : Same Revised: 23.05.86

                           GTREVE Block Diagram
                                  

ITRA = 1
ISTAK = 0
Get Primary track parameters
IPART,VERT,PVERT
Cet particle parameters
ITRTYP,AMASS,CHARGE,TLIFE
Convert momentum components to direction cosinus
CALL GUTRAK
Secondary track ISTAK into stack ?                              YES
ITRA = ITRA+1
ITRA.LE.NTRACK ?                                                 YES