Warning, /include/geant321/gcmutr.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1995/10/24 10:20:33 cernlib
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_GEANT321_GCMUTR_INC
0010 #define CERNLIB_GEANT321_GCMUTR_INC
0011 *
0012 *
0013 * gcmutr.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016 #if defined(CERNLIB_TYPE)
0017 #include "geant321/gtmutr.inc"
0018 #endif
0019 *
0020 PARAMETER (MULTRA=50)
0021 CHARACTER*4 GNASH, GNNVV, GNVNV
0022 COMMON/GCMUTR/NCVOLS,KSHIFT,NSHIFT,ICUBE,NAIN,JJJ,
0023 + NIET,IOLDSU,IVOOLD,IWPOIN,IHPOIN,IVECVO(100),
0024 + PORGX,PORGY,PORGZ,POX(15),POY(15),POZ(15),GBOOM,
0025 + PORMIR(18),PORMAR(18),IPORNT,
0026 + ICGP,CLIPMI(6),CLIPMA(6),
0027 + ABCD(4),BMIN(6),BMAX(6),CGB(16000),CGB1(16000),
0028 + GXMIN(MULTRA),GXMAX(MULTRA),GYMIN(MULTRA),
0029 + GYMAX(MULTRA),GZMIN(MULTRA),GZMAX(MULTRA),
0030 + GXXXX(MULTRA),GYYYY(MULTRA),GZZZZ(MULTRA)
0031 *
0032 COMMON/GCMUTC/ GNASH(MULTRA),GNNVV(MULTRA),GNVNV(MULTRA)
0033 *
0034 #endif
0035 *
0036 * gcmutr.inc
0037 *
0038 #if defined(CERNLIB_INCLUDE)
0039 *
0040 #include "geant321/incbeg.inc"
0041 + gcmutr
0042 #include "geant321/incend.inc"
0043 #endif
0044
0045 #endif
