GEANT321/gbase/gtrig.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:11  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.19  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GTRIG
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Steering routine to process one event                    *
  17 C.    *    ==>Called by : GRUN   ,<GXINT> GINC4                        *
  18 C.    *       Author    R.Brun  *********                              *
  19 C.    *                                                                *
  20 C.    ******************************************************************
  21 C.
  22 #include "geant321/gcvdma.inc"
  23 #include "geant321/gcflag.inc"
  24 #if defined(CERNLIB_USRJMP)
  25 #include "geant321/gcjump.inc"
  26 #endif
  27 C.
  28 C.    ------------------------------------------------------------------
  29 C.
  30 C.            Kinematics
  31 C.
  32       IF(RAYTRA.NE.1.)THEN
  33 #if !defined(CERNLIB_USRJMP)
  34        CALL GUKINE
  35 #endif
  36 #if defined(CERNLIB_USRJMP)
  37        CALL JUMPT0(JUKINE)
  38 #endif
  39       ELSE
  40        CALL GDKINE
  41       ENDIF
  42       IF (IEOTRI.NE.0)  GO TO  99
  43 C.
  44 C.            Tracking
  45 C.
  46 #if !defined(CERNLIB_USRJMP)
  47       CALL GUTREV
  48 #endif
  49 #if defined(CERNLIB_USRJMP)
  50       CALL JUMPT0(JUTREV)
  51 #endif
  52       IF (RAYTRA.EQ.1.) GO TO  99
  53       IF (IEOTRI.NE.0)  GO TO  99
  54 C.
  55 C.            Digitisation
  56 C.
  57 #if !defined(CERNLIB_USRJMP)
  58       CALL GUDIGI
  59 #endif
  60 #if defined(CERNLIB_USRJMP)
  61       CALL JUMPT0(JUDIGI)
  62 #endif
  63       IF (IEOTRI.NE.0)  GO TO  99
  64 C.
  65 C.            User end of event control routine
  66 C.
  67 #if !defined(CERNLIB_USRJMP)
  68       CALL GUOUT
  69 #endif
  70 #if defined(CERNLIB_USRJMP)
  71       CALL JUMPT0(JUOUT)
  72 #endif
  73 C
  74   99  RETURN
  75       END