gpamela/gcdes/gcmutr.inc

*
* $Id$
*
* $Log$
*
*
* gcmutr.inc
*
#if defined(GPAMELA_TYPE)
#include "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)
*
*
* gcmutr.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcmutr
#include "incend.inc"
#endif
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gcmutr.inc
8			*
9			#if defined(GPAMELA_TYPE)
10			#include "gtmutr.inc"
11			#endif
12			*
13			PARAMETER (MULTRA=50)
14			CHARACTER*4 GNASH, GNNVV, GNVNV
15			COMMON/GCMUTR/NCVOLS,KSHIFT,NSHIFT,ICUBE,NAIN,JJJ,
16			+ NIET,IOLDSU,IVOOLD,IWPOIN,IHPOIN,IVECVO(100),
17			+ PORGX,PORGY,PORGZ,POX(15),POY(15),POZ(15),GBOOM,
18			+ PORMIR(18),PORMAR(18),IPORNT,
19			+ ICGP,CLIPMI(6),CLIPMA(6),
20			+ ABCD(4),BMIN(6),BMAX(6),CGB(16000),CGB1(16000),
21			+ GXMIN(MULTRA),GXMAX(MULTRA),GYMIN(MULTRA),
22			+ GYMAX(MULTRA),GZMIN(MULTRA),GZMAX(MULTRA),
23			+ GXXXX(MULTRA),GYYYY(MULTRA),GZZZZ(MULTRA)
24			*
25			COMMON/GCMUTC/ GNASH(MULTRA),GNNVV(MULTRA),GNVNV(MULTRA)
26			*
27			*
28			* gcmutr.inc
29			*
30			#if defined(GPAMELA_INCLUDE)
31			*
32			#include "incbeg.inc"
33			+ gcmutr
34			#include "incend.inc"
35			#endif