Warning, /include/geant321/gctrak.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:32 cernlib
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_GEANT321_GCTRAK_INC
0010 #define CERNLIB_GEANT321_GCTRAK_INC
0011 *
0012 *
0013 * gctrak.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016 #if defined(CERNLIB_TYPE)
0017 #include "geant321/gttrak.inc"
0018 #endif
0019 PARAMETER (MAXMEC=30)
0020 COMMON/GCTRAK/VECT(7),GETOT,GEKIN,VOUT(7),NMEC,LMEC(MAXMEC)
0021 + ,NAMEC(MAXMEC),NSTEP ,MAXNST,DESTEP,DESTEL,SAFETY,SLENG
0022 + ,STEP ,SNEXT ,SFIELD,TOFG ,GEKRAT,UPWGHT,IGNEXT,INWVOL
0023 + ,ISTOP ,IGAUTO,IEKBIN, ILOSL, IMULL,INGOTO,NLDOWN,NLEVIN
0024 + ,NLVSAV,ISTORY
0025 PARAMETER (MAXME1=30)
0026 COMMON/GCTPOL/POLAR(3), NAMEC1(MAXME1)
0027 C
0028 #endif
0029 *
0030 * gctrak.inc
0031 *
0032 #if defined(CERNLIB_INCLUDE)
0033 *
0034 #include "geant321/incbeg.inc"
0035 + gctrak
0036 #include "geant321/incend.inc"
0037 #endif
0038
0039 #endif
