This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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