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	*
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