gpamela/gcdes/gcdraw.inc

*
* $Id$
*
* $Log$
*
*
* gcdraw.inc
*
      COMMON/GCDRAW/NUMNOD,MAXNOD,NUMND1,LEVVER,LEVHOR,MAXV,IPICK,
     + MLEVV,MLEVH,NWCUT,JNAM,JMOT,JXON,JBRO,JDUP,JSCA,JDVM,JPSM,
     + JNAM1,JMOT1,JXON1,JBRO1,JDUP1,JSCA1,JULEV,JVLEV,
     + LOOKTB(16),
     + GRMAT0(10),GTRAN0(3),IDRNUM,GSIN(41),GCOS(41),SINPSI,COSPSI,
     + GTHETA,GPHI,GPSI,GU0,GV0,GSCU,GSCV,NGVIEW,
     + ICUTFL,ICUT,CTHETA,CPHI,DCUT,NSURF,ISURF,
     + GZUA,GZVA,GZUB,GZVB,GZUC,GZVC,PLTRNX,PLTRNY,
     + LINATT,LINATP,ITXATT,ITHRZ,IPRJ,DPERS,ITR3D,IPKHIT,IOBJ,LINBUF,
     + MAXGU,MORGU,MAXGS,MORGS,MAXTU,MORTU,MAXTS,MORTS,
     + IGU,IGS,ITU,ITS,NKVIEW,IDVIEW,
     + NOPEN,IGMR,IPIONS,ITRKOP,IHIDEN,
     + ZZFU,ZZFV,MYISEL,
     + DDUMMY(15)
C
#if defined(GPAMELA_TYPE)
#include "gtdraw.inc"
#endif
*
* gcdraw.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcdraw
#include "incend.inc"
#endif
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gcdraw.inc
8			*
9			COMMON/GCDRAW/NUMNOD,MAXNOD,NUMND1,LEVVER,LEVHOR,MAXV,IPICK,
10			+ MLEVV,MLEVH,NWCUT,JNAM,JMOT,JXON,JBRO,JDUP,JSCA,JDVM,JPSM,
11			+ JNAM1,JMOT1,JXON1,JBRO1,JDUP1,JSCA1,JULEV,JVLEV,
12			+ LOOKTB(16),
13			+ GRMAT0(10),GTRAN0(3),IDRNUM,GSIN(41),GCOS(41),SINPSI,COSPSI,
14			+ GTHETA,GPHI,GPSI,GU0,GV0,GSCU,GSCV,NGVIEW,
15			+ ICUTFL,ICUT,CTHETA,CPHI,DCUT,NSURF,ISURF,
16			+ GZUA,GZVA,GZUB,GZVB,GZUC,GZVC,PLTRNX,PLTRNY,
17			+ LINATT,LINATP,ITXATT,ITHRZ,IPRJ,DPERS,ITR3D,IPKHIT,IOBJ,LINBUF,
18			+ MAXGU,MORGU,MAXGS,MORGS,MAXTU,MORTU,MAXTS,MORTS,
19			+ IGU,IGS,ITU,ITS,NKVIEW,IDVIEW,
20			+ NOPEN,IGMR,IPIONS,ITRKOP,IHIDEN,
21			+ ZZFU,ZZFV,MYISEL,
22			+ DDUMMY(15)
23			C
24			#if defined(GPAMELA_TYPE)
25			#include "gtdraw.inc"
26			#endif
27			*
28			* gcdraw.inc
29			*
30			#if defined(GPAMELA_INCLUDE)
31			*
32			#include "incbeg.inc"
33			+ gcdraw
34			#include "incend.inc"
35			#endif