GEANT321/gbase/gtrigc.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 GTRIGC
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Clear event partition                                    *
  17 C.    *                                                                *
  18 C.    *    ==>Called by : GRUN   ,<GXINT> GINC4                        *
  19 C.    *       Author    R.Brun  *********                              *
  20 C.    *                                                                *
  21 C.    ******************************************************************
  22 C.
  23 #include "geant321/gcbank.inc"
  24 #include "geant321/gcstak.inc"
  25 #include "geant321/gcflag.inc"
  26 C.
  27 C.    ------------------------------------------------------------------
  28 C.
  29 *
  30       IF (NJTMAX.LT.0) NJTMAX = -NJTMAX
  31 *
  32       CALL GRNDMQ(IQ(JRUNG+19),IQ(JRUNG+20),0,'G')
  33       IQ(JRUNG+29) = IEVENT
  34 *
  35       IF (JSTAK.NE.0) THEN
  36          IQ(JSTAK+1) = 0
  37          IQ(JSTAK+3) = 0
  38       ENDIF
  39 *
  40       CALL MZWIPE (IXDIV)
  41 *                                                             END GTRIGC
  42       END
  43