gpamela/gcdes/gctrak.inc

*
* $Id$
*
* $Log$
*
*
* gctrak.inc
*
#if defined(GPAMELA_TYPE)
#include "gttrak.inc"
#endif
      PARAMETER (MAXMEC=30)
      COMMON/GCTRAK/VECT(7),GETOT,GEKIN,VOUT(7),NMEC,LMEC(MAXMEC)
     + ,NAMEC(MAXMEC),NSTEP ,MAXNST,DESTEP,DESTEL,SAFETY,SLENG
     + ,STEP  ,SNEXT ,SFIELD,TOFG  ,GEKRAT,UPWGHT,IGNEXT,INWVOL
     + ,ISTOP ,IGAUTO,IEKBIN, ILOSL, IMULL,INGOTO,NLDOWN,NLEVIN
     + ,NLVSAV,ISTORY
      PARAMETER (MAXME1=30)
      COMMON/GCTPOL/POLAR(3), NAMEC1(MAXME1)
C
*
* gctrak.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gctrak
#include "incend.inc"
#endif
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gctrak.inc
8			*
9			#if defined(GPAMELA_TYPE)
10			#include "gttrak.inc"
11			#endif
12			PARAMETER (MAXMEC=30)
13			COMMON/GCTRAK/VECT(7),GETOT,GEKIN,VOUT(7),NMEC,LMEC(MAXMEC)
14			+ ,NAMEC(MAXMEC),NSTEP ,MAXNST,DESTEP,DESTEL,SAFETY,SLENG
15			+ ,STEP ,SNEXT ,SFIELD,TOFG ,GEKRAT,UPWGHT,IGNEXT,INWVOL
16			+ ,ISTOP ,IGAUTO,IEKBIN, ILOSL, IMULL,INGOTO,NLDOWN,NLEVIN
17			+ ,NLVSAV,ISTORY
18			PARAMETER (MAXME1=30)
19			COMMON/GCTPOL/POLAR(3), NAMEC1(MAXME1)
20			C
21			*
22			* gctrak.inc
23			*
24			#if defined(GPAMELA_INCLUDE)
25			*
26			#include "incbeg.inc"
27			+ gctrak
28			#include "incend.inc"
29			#endif