This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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