Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / geant321 / gcmutr.inc
CommitLineData
fe4da5cc 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