Gabriele Cosmo
28 lines
1.2 KiB
FortranFixed
28 lines
1.2 KiB
FortranFixed
|
|
SUBROUTINE GUOUT
|
|
*
|
|
* User routine called at the end of each event
|
|
*
|
|
#include "geant321/gcflag.inc"
|
|
#include "celoss.inc"
|
|
*
|
|
* *** drawing
|
|
*
|
|
#ifndef batch
|
|
IF (ISWIT(1).NE.0) THEN
|
|
CALL GDHEAD (110110,'TestEm4',0.)
|
|
CALL GDSHOW (3)
|
|
CALL GDXYZ (0)
|
|
END IF
|
|
#endif
|
|
*
|
|
* energy deposited
|
|
*
|
|
EMEV = 1000.*ETOT
|
|
CALL HFILL(1,EMEV,0.,1.)
|
|
IF (ISWIT(1).NE.0) PRINT 750,EMEV
|
|
*
|
|
750 FORMAT(1X,'Energy deposit: ',F6.3,' MeV')
|
|
*
|
|
END
|