gpamela/gcdes/gcphxs.inc

*
* $Id$
*
* $Log$
*
*
* gcphxs.inc
*
      INTEGER MAXPOW,MAXINT
      PARAMETER (MAXPOW=4)
      PARAMETER (MAXINT=13)
      CHARACTER*6 CRNGUP
      COMMON /GCPXRN/ CRNGUP(MAXINT,MAXELZ)
      REAL COFS,GPOMIN
      COMMON /GCPXCF/ COFS(MAXPOW,MAXINT,MAXELZ),GPOMIN(MAXELZ)
C
*
* gcphxs.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcphxs
#include "incend.inc"
#endif
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gcphxs.inc
8			*
9			INTEGER MAXPOW,MAXINT
10			PARAMETER (MAXPOW=4)
11			PARAMETER (MAXINT=13)
12			CHARACTER*6 CRNGUP
13			COMMON /GCPXRN/ CRNGUP(MAXINT,MAXELZ)
14			REAL COFS,GPOMIN
15			COMMON /GCPXCF/ COFS(MAXPOW,MAXINT,MAXELZ),GPOMIN(MAXELZ)
16			C
17			*
18			* gcphxs.inc
19			*
20			#if defined(GPAMELA_INCLUDE)
21			*
22			#include "incbeg.inc"
23			+ gcphxs
24			#include "incend.inc"
25			#endif