Back to home page

EIC code displayed by LXR

 
 

    


Warning, /include/geant321/gcdraw.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:33  cernlib
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_GEANT321_GCDRAW_INC
0010 #define CERNLIB_GEANT321_GCDRAW_INC
0011 *
0012 *
0013 * gcdraw.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016       COMMON/GCDRAW/NUMNOD,MAXNOD,NUMND1,LEVVER,LEVHOR,MAXV,IPICK,
0017      + MLEVV,MLEVH,NWCUT,JNAM,JMOT,JXON,JBRO,JDUP,JSCA,JDVM,JPSM,
0018      + JNAM1,JMOT1,JXON1,JBRO1,JDUP1,JSCA1,JULEV,JVLEV,
0019      + LOOKTB(16),
0020      + GRMAT0(10),GTRAN0(3),IDRNUM,GSIN(41),GCOS(41),SINPSI,COSPSI,
0021      + GTHETA,GPHI,GPSI,GU0,GV0,GSCU,GSCV,NGVIEW,
0022      + ICUTFL,ICUT,CTHETA,CPHI,DCUT,NSURF,ISURF,
0023      + GZUA,GZVA,GZUB,GZVB,GZUC,GZVC,PLTRNX,PLTRNY,
0024      + LINATT,LINATP,ITXATT,ITHRZ,IPRJ,DPERS,ITR3D,IPKHIT,IOBJ,LINBUF,
0025      + MAXGU,MORGU,MAXGS,MORGS,MAXTU,MORTU,MAXTS,MORTS,
0026      + IGU,IGS,ITU,ITS,NKVIEW,IDVIEW,
0027      + NOPEN,IGMR,IPIONS,ITRKOP,IHIDEN,
0028      + ZZFU,ZZFV,MYISEL,
0029      + DDUMMY(15)
0030 C
0031 #if defined(CERNLIB_TYPE)
0032 #include "geant321/gtdraw.inc"
0033 #endif
0034 #endif
0035 *
0036 * gcdraw.inc
0037 *
0038 #if defined(CERNLIB_INCLUDE)
0039 *
0040 #include "geant321/incbeg.inc"
0041      +   gcdraw
0042 #include "geant321/incend.inc"
0043 #endif
0044 
0045 #endif