GEANT321/gxint/gidrop.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:21:48  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.33  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GIDROP
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *      DROP all ZEBRA structures created at initialisation time  *
  17 C.    *                                                                *
  18 C.    *       Authors:   R.Brun      **********                        *
  19 C.    *                                                                *
  20 C.    ******************************************************************
  21 C.
  22 #include "geant321/gcbank.inc"
  23 #include "geant321/gcvolu.inc"
  24 C.
  25 C.    ------------------------------------------------------------------
  26 C.
  27       IF(JMATE .NE.0)CALL MZDROP(IXCONS,JMATE,' ')
  28       IF(JTMED .NE.0)CALL MZDROP(IXCONS,JTMED,' ')
  29       IF(JVOLUM.NE.0)CALL MZDROP(IXCONS,JVOLUM,'L')
  30       IF(JPART .NE.0)CALL MZDROP(IXCONS,JPART,' ')
  31       IF(JROTM .NE.0)CALL MZDROP(IXCONS,JROTM,' ')
  32       IF(JSET  .NE.0)CALL MZDROP(IXCONS,JSET,' ')
  33       JVOLUM=0
  34       JMATE=0
  35       JTMED=0
  36       JPART=0
  37       JROTM=0
  38       JSET=0
  39 *
  40       CALL VZERO (NLEVEL,306)
  41 *
  42       END
  43