gpamela/gcdes/gcparm.inc

*
* $Id$
*
* $Log$
*
*
* gcparm.inc
*
      COMMON/GCPARM/IPARAM,PCUTGA,PCUTEL,PCUTNE,PCUTHA,PCUTMU
     +             ,NSPARA,MPSTAK,NPGENE
      REAL PACUTS(5)
      EQUIVALENCE (PACUTS(1),PCUTGA)
#if defined(GPAMELA_TYPE)
#include "gtparm.inc"
#endif
C
*
* gcparm.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcparm
#include "incend.inc"
#endif
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gcparm.inc
8			*
9			COMMON/GCPARM/IPARAM,PCUTGA,PCUTEL,PCUTNE,PCUTHA,PCUTMU
10			+ ,NSPARA,MPSTAK,NPGENE
11			REAL PACUTS(5)
12			EQUIVALENCE (PACUTS(1),PCUTGA)
13			#if defined(GPAMELA_TYPE)
14			#include "gtparm.inc"
15			#endif
16			C
17			*
18			* gcparm.inc
19			*
20			#if defined(GPAMELA_INCLUDE)
21			*
22			#include "incbeg.inc"
23			+ gcparm
24			#include "incend.inc"
25			#endif