GEANT321/geant321/gcmutr.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:34  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_GCMUTR_INC
  10 #define CERNLIB_GEANT321_GCMUTR_INC
  11 *
  12 *
  13 * gcmutr.inc
  14 *
  15 #if !defined(CERNLIB_INCLUDE)
  16 #if defined(CERNLIB_TYPE)
  17 #include "geant321/gtmutr.inc"
  18 #endif
  19 *
  20       PARAMETER (MULTRA=50)
  21       CHARACTER*4 GNASH, GNNVV, GNVNV
  22       COMMON/GCMUTR/NCVOLS,KSHIFT,NSHIFT,ICUBE,NAIN,JJJ,
  23      +              NIET,IOLDSU,IVOOLD,IWPOIN,IHPOIN,IVECVO(100),
  24      +              PORGX,PORGY,PORGZ,POX(15),POY(15),POZ(15),GBOOM,
  25      +              PORMIR(18),PORMAR(18),IPORNT,
  26      +              ICGP,CLIPMI(6),CLIPMA(6),
  27      +              ABCD(4),BMIN(6),BMAX(6),CGB(16000),CGB1(16000),
  28      +              GXMIN(MULTRA),GXMAX(MULTRA),GYMIN(MULTRA),
  29      +              GYMAX(MULTRA),GZMIN(MULTRA),GZMAX(MULTRA),
  30      +              GXXXX(MULTRA),GYYYY(MULTRA),GZZZZ(MULTRA)
  31 *
  32       COMMON/GCMUTC/   GNASH(MULTRA),GNNVV(MULTRA),GNVNV(MULTRA)
  33 *
  34 #endif
  35 *
  36 * gcmutr.inc
  37 *
  38 #if defined(CERNLIB_INCLUDE)
  39 *
  40 #include "geant321/incbeg.inc"
  41      +   gcmutr
  42 #include "geant321/incend.inc"
  43 #endif
  44
  45 #endif