* * $Id$ * * $Log$ * Revision 1.1 2000/06/19 20:00:23 eugenio * Initial revision * * Revision 1.2 1994/10/17 16:38:26 lkg * Changed include statements to use partial path names. * * Revision 1.1.1.1 1994/04/05 21:31:35 lkg * Beta version of GEANT in CLEO CVS format * * * * gcmutr.inc * #if defined(CLEO_TYPE) #include "geant/gcdes/gtmutr.inc" #endif * PARAMETER (MULTRA=50) CHARACTER*4 GNASH, GNNVV, GNVNV COMMON/GCMUTR/NCVOLS,KSHIFT,NSHIFT,ICUBE,NAIN,JJJ, + NIET,IOLDSU,IVOOLD,IWPOIN,IHPOIN,IVECVO(100), + PORGX,PORGY,PORGZ,POX(15),POY(15),POZ(15),GBOOM, + PORMIR(18),PORMAR(18),IPORNT, + ICGP,CLIPMI(6),CLIPMA(6), + ABCD(4),BMIN(6),BMAX(6),CGB(16000),CGB1(16000), + GXMIN(MULTRA),GXMAX(MULTRA),GYMIN(MULTRA), + GYMAX(MULTRA),GZMIN(MULTRA),GZMAX(MULTRA), + GXXXX(MULTRA),GYYYY(MULTRA),GZZZZ(MULTRA) * COMMON/GCMUTC/ GNASH(MULTRA),GNNVV(MULTRA),GNVNV(MULTRA) *