Warning, /include/geant321/cgcedg.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:41 cernlib
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_GEANT321_CGCEDG_INC
0010 #define CERNLIB_GEANT321_CGCEDG_INC
0011 *
0012 *
0013 * cgcedg.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016 PARAMETER (INPART = 30, NTTT = 50)
0017 COMMON /CGCEDG/ TDEL,NPART,TSTRT(INPART),TEND(INPART),
0018 + KX,KY,KZ,NPART2,TSTRT2(INPART),TEND2(INPART),
0019 + XA,YA,ZA,XB,YB,ZB,XDELT,YDELT,ZDELT,
0020 + ABC(3,2),DEDGE(5),TTT(2,NTTT),ITTT(NTTT)
0021 REAL AA(3),BB(3),DELTA(3)
0022 EQUIVALENCE (AA,XA),(BB,XB),(DELTA,XDELT)
0023 #endif
0024 *
0025 * cgcedg.inc
0026 *
0027 #if defined(CERNLIB_INCLUDE)
0028 #include "geant321/incbeg.inc"
0029 + CGCEDG.
0030 #include "geant321/incend.inc"
0031 *
0032 #endif
0033
0034 #endif
