1 jones 1.1 *CMZ :          29/03/94  15.41.35  by  S.Giani
 2           *-- Author :
 3                 SUBROUTINE GUTREV
 4                 include 'beta_geom.inc'
 5                 include 'geant.inc'
 6                 include 'sane.inc'
 7                 include 'sane_misc.inc'
 8                 include 'materials.inc'
 9                 include 'sane_cwn.inc' 
10           C.
11           C.    *
12           C.    *       User routine to control tracking of one event
13           C.    *
14           C.    *       Called by GRUN
15           C.    *
16           C.
17           c      write(*,*)'Start GUTREV',ee
18                 CALL GTREVE
19           c      write(*,*)'Stop GUTREV'
20           C
21                 END