GEANT321/geant321/gctrak.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:33  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_GCTRAK_INC
  10 #define CERNLIB_GEANT321_GCTRAK_INC
  11 *
  12 *
  13 * gctrak.inc
  14 *
  15 #if !defined(CERNLIB_INCLUDE)
  16 #if defined(CERNLIB_TYPE)
  17 #include "geant321/gttrak.inc"
  18 #endif
  19       PARAMETER (MAXMEC=30)
  20       COMMON/GCTRAK/VECT(7),GETOT,GEKIN,VOUT(7),NMEC,LMEC(MAXMEC)
  21      + ,NAMEC(MAXMEC),NSTEP ,MAXNST,DESTEP,DESTEL,SAFETY,SLENG
  22      + ,STEP  ,SNEXT ,SFIELD,TOFG  ,GEKRAT,UPWGHT,IGNEXT,INWVOL
  23      + ,ISTOP ,IGAUTO,IEKBIN, ILOSL, IMULL,INGOTO,NLDOWN,NLEVIN
  24      + ,NLVSAV,ISTORY
  25       PARAMETER (MAXME1=30)
  26       COMMON/GCTPOL/POLAR(3), NAMEC1(MAXME1)
  27 C
  28 #endif
  29 *
  30 * gctrak.inc
  31 *
  32 #if defined(CERNLIB_INCLUDE)
  33 *
  34 #include "geant321/incbeg.inc"
  35      +   gctrak
  36 #include "geant321/incend.inc"
  37 #endif
  38
  39 #endif