gpamela/gcdes/gcomis.inc

*
* $Id$
*
* $Log$
*
*
* gcomis.inc
*
      COMMON/GCOMIS/JUINIT,JUGEOM,JUKINE,JUSTEP,JUOUT,JULAST
      DIMENSION JPCOMS(6)
      EQUIVALENCE (JPCOMS,JUINIT)
*
*
* gcomis.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcomis
#include "incend.inc"
#endif
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gcomis.inc
8			*
9			COMMON/GCOMIS/JUINIT,JUGEOM,JUKINE,JUSTEP,JUOUT,JULAST
10			DIMENSION JPCOMS(6)
11			EQUIVALENCE (JPCOMS,JUINIT)
12			*
13			*
14			* gcomis.inc
15			*
16			#if defined(GPAMELA_INCLUDE)
17			*
18			#include "incbeg.inc"
19			+ gcomis
20			#include "incend.inc"
21			#endif