GEANT321/gbase/gtrigi.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 GTRIGI
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Initialises event partition                              *
  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/gcbank.inc"
  24 #include "geant321/gcnum.inc"
  25 #include "geant321/gcflag.inc"
  26 #include "geant321/gcunit.inc"
  27 #include "geant321/gctrak.inc"
  28 C.
  29 C.    ------------------------------------------------------------------
  30 C.
  31       IEOTRI=0
  32       NTRACK=0
  33       NVERTX=0
  34       IDEBUG=0
  35       TOFG  =0.
  36 C
  37 C               Print event number and random number generator
  38 C
  39       IF(RAYTRA.NE.1.)CALL GRNDMQ(NRNDM(1),NRNDM(2),0,'G')
  40 C
  41 C               Create event header bank
  42 C
  43       CALL MZBOOK(IXDIV,JHEAD,JHEAD,1,'HEAD', 1, 1,NHEAD,2,0)
  44       IDEVT=IDEVT+1
  45       IQ(JHEAD+1)=IDRUN
  46       IQ(JHEAD+2)=IDEVT
  47       IQ(JHEAD+3)=NRNDM(1)
  48       IQ(JHEAD+4)=NRNDM(2)
  49 C
  50       IF(ITEST.GT.0)THEN
  51          IF(MOD(IEVENT,ITEST).EQ.0)THEN
  52            IF(RAYTRA.NE.1.)THEN
  53             WRITE (CHMAIL,1000) IEVENT,IDEVT,(NRNDM(I),I = 1,2)
  54             CALL GMAIL(0,0)
  55            ENDIF
  56          ENDIF
  57       ENDIF
  58 C
  59       IF(IEVENT.GE.IDEMIN.AND.IEVENT.LE.IDEMAX)IDEBUG=1
  60 C
  61  1000 FORMAT(' **** GTRIGI: IEVENT=',I7,' IDEVT=',I7,
  62      +' Random Seeds = ',I10,2X,I10)
  63   99  RETURN
  64       END