Back to home page

EIC code displayed by LXR

 
 

    


Warning, /include/geant321/gcphxs.inc is written in an unsupported language. File is not indexed.

0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1  1995/10/24 10:20:34  cernlib
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_GEANT321_GCPHXS_INC
0010 #define CERNLIB_GEANT321_GCPHXS_INC
0011 *
0012 *
0013 * gcphxs.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016       INTEGER MAXPOW,MAXINT
0017       PARAMETER (MAXPOW=4)
0018       PARAMETER (MAXINT=13)
0019       CHARACTER*6 CRNGUP
0020       COMMON /GCPXRN/ CRNGUP(MAXINT,MAXELZ)
0021       REAL COFS,GPOMIN
0022       COMMON /GCPXCF/ COFS(MAXPOW,MAXINT,MAXELZ),GPOMIN(MAXELZ)
0023 C
0024 #endif
0025 *
0026 * gcphxs.inc
0027 *
0028 #if defined(CERNLIB_INCLUDE)
0029 *
0030 #include "geant321/incbeg.inc"
0031      +   gcphxs
0032 #include "geant321/incend.inc"
0033 #endif
0034 
0035 #endif