Gabriele Cosmo
30 lines
1.2 KiB
FortranFixed
30 lines
1.2 KiB
FortranFixed
|
|
|
|
SUBROUTINE GUTRAK
|
|
*
|
|
* User routine to control tracking of one track
|
|
* Called by GTREVE
|
|
*
|
|
#include "geant321/gckine.inc"
|
|
#include "geant321/gctrak.inc"
|
|
#include "celoss.inc"
|
|
|
|
*
|
|
*
|
|
* *** initialisation track per track
|
|
NSTRK0 = 0
|
|
NSTRK1 = 0
|
|
*
|
|
CALL GTRACK
|
|
*
|
|
* *** count nb of tracks
|
|
IF (CHARGE.NE.0.) THEN
|
|
NTRAK1 = NTRAK1 + 1
|
|
CALL HFILL (1,SLENG*10,0.,1.)
|
|
CALL HFILL (2,REAL(NSTRK1),0.,1.)
|
|
ELSE
|
|
NTRAK0 = NTRAK0 + 1
|
|
ENDIF
|
|
*
|
|
END
|