gpamela/gpgar/parameters.inc

*
* $Id$
*
* $Log$
*
*
* parameters.inc
*
*CMZ :  3.00/00 02/05/2001  20.42.25  by  Unknown
*-- Author :
       DOUBLE PRECISION WGT,FPRMAT,
     -      FPROJ,FPROJA,FPROJB,FPROJC,FPROJD,FPROJN,
     -      EPSGX,EPSGY,EPSGZ,
     -      GXMIN,GYMIN,GZMIN,GXMAX,GYMAX,GZMAX,
     -      GXBOX,GYBOX,GZBOX
       REAL PXMIN,PYMIN,PZMIN,PXMAX,PYMAX,PZMAX,
     -      PRTHL,PRPHIL,PRAL,PRBL,PRCL,PROROT,
     -      PRFABS,PRFREF,PRFMIN,PRFMAX,PRFCAL,
     -      XT0,YT0,ZT0,XT1,YT1,ZT1,
     -      TRMASS,TRENER,TRCHAR,TRXDIR,TRYDIR,TRZDIR,TRTH,TRPHI,TRDIST,
     -      TRFLUX
       INTEGER NLINED,NGRIDX,NGRIDY,ITRTYP,NTRLIN,NTRSAM,INDPOS,NCTRW,
     -      NTRFLX,NINORD,
     -      NCPNAM,NCXLAB,NCYLAB,NCFPRO,IPRMAT,
     -      NPRCOL,ICOL0,ICOLBX,ICOLPL,ICOLST,ICOLW1,ICOLW2,ICOLW3,
     -      ICOLD1,ICOLD2,ICOLD3,NGBOX
       LOGICAL LTRMS,LTRDEL,LTRINT,LTREXB,TRFLAG,LINCAL,
     -      LFULLB,LFULLP,LFULLT,LSPLIT,LSORT,LOUTL,LEPSG,LGSTEP
       COMMON /PARMS / WGT(MXLIST),FPRMAT(3,3),
     -      FPROJ(3,3),FPROJA,FPROJB,FPROJC,FPROJD,FPROJN,
     -      EPSGX,EPSGY,EPSGZ,
     -      GXMIN,GYMIN,GZMIN,GXMAX,GYMAX,GZMAX,
     -      GXBOX(12),GYBOX(12),GZBOX(12),
     -      PXMIN,PYMIN,PZMIN,PXMAX,PYMAX,PZMAX,
     -      PRTHL,PRPHIL,PRAL,PRBL,PRCL,PROROT,
     -      PRFABS,PRFREF,PRFMIN,PRFMAX,PRFCAL,
     -      XT0,YT0,ZT0,XT1,YT1,ZT1,
     -      TRMASS,TRENER,TRCHAR,TRXDIR,TRYDIR,TRZDIR,TRTH,TRPHI,TRDIST,
     -      TRFLUX,
     -      INDPOS(1000),IPRMAT(3),NCTRW,NCPNAM,
     -      ITRTYP,NTRLIN,NTRSAM,NTRFLX,NLINED,NINORD,NGRIDX,NGRIDY,
     -      NCXLAB,NCYLAB,NCFPRO,
     -      NPRCOL,ICOL0,ICOLBX,ICOLPL,ICOLST,ICOLW1,ICOLW2,ICOLW3,
     -      ICOLD1,ICOLD2,ICOLD3,NGBOX,
     -      LTRMS,LTRDEL,LTRINT,LTREXB,TRFLAG(10),LINCAL,
     -      LFULLB,LFULLP,LFULLT,LSPLIT,LSORT,LOUTL,LEPSG,LGSTEP
       CHARACTER*80 PARTID,PXLAB,PYLAB,PROLAB
       CHARACTER*10 PNAME
       CHARACTER*5  PRVIEW
       CHARACTER*(MXCHAR) FCNTRW
       COMMON /PARCHR/ PARTID,FCNTRW,PNAME,PXLAB,PYLAB,PROLAB,PRVIEW
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* parameters.inc
8			*
9			*CMZ : 3.00/00 02/05/2001 20.42.25 by Unknown
10			*-- Author :
11			DOUBLE PRECISION WGT,FPRMAT,
12			- FPROJ,FPROJA,FPROJB,FPROJC,FPROJD,FPROJN,
13			- EPSGX,EPSGY,EPSGZ,
14			- GXMIN,GYMIN,GZMIN,GXMAX,GYMAX,GZMAX,
15			- GXBOX,GYBOX,GZBOX
16			REAL PXMIN,PYMIN,PZMIN,PXMAX,PYMAX,PZMAX,
17			- PRTHL,PRPHIL,PRAL,PRBL,PRCL,PROROT,
18			- PRFABS,PRFREF,PRFMIN,PRFMAX,PRFCAL,
19			- XT0,YT0,ZT0,XT1,YT1,ZT1,
20			- TRMASS,TRENER,TRCHAR,TRXDIR,TRYDIR,TRZDIR,TRTH,TRPHI,TRDIST,
21			- TRFLUX
22			INTEGER NLINED,NGRIDX,NGRIDY,ITRTYP,NTRLIN,NTRSAM,INDPOS,NCTRW,
23			- NTRFLX,NINORD,
24			- NCPNAM,NCXLAB,NCYLAB,NCFPRO,IPRMAT,
25			- NPRCOL,ICOL0,ICOLBX,ICOLPL,ICOLST,ICOLW1,ICOLW2,ICOLW3,
26			- ICOLD1,ICOLD2,ICOLD3,NGBOX
27			LOGICAL LTRMS,LTRDEL,LTRINT,LTREXB,TRFLAG,LINCAL,
28			- LFULLB,LFULLP,LFULLT,LSPLIT,LSORT,LOUTL,LEPSG,LGSTEP
29			COMMON /PARMS / WGT(MXLIST),FPRMAT(3,3),
30			- FPROJ(3,3),FPROJA,FPROJB,FPROJC,FPROJD,FPROJN,
31			- EPSGX,EPSGY,EPSGZ,
32			- GXMIN,GYMIN,GZMIN,GXMAX,GYMAX,GZMAX,
33			- GXBOX(12),GYBOX(12),GZBOX(12),
34			- PXMIN,PYMIN,PZMIN,PXMAX,PYMAX,PZMAX,
35			- PRTHL,PRPHIL,PRAL,PRBL,PRCL,PROROT,
36			- PRFABS,PRFREF,PRFMIN,PRFMAX,PRFCAL,
37			- XT0,YT0,ZT0,XT1,YT1,ZT1,
38			- TRMASS,TRENER,TRCHAR,TRXDIR,TRYDIR,TRZDIR,TRTH,TRPHI,TRDIST,
39			- TRFLUX,
40			- INDPOS(1000),IPRMAT(3),NCTRW,NCPNAM,
41			- ITRTYP,NTRLIN,NTRSAM,NTRFLX,NLINED,NINORD,NGRIDX,NGRIDY,
42			- NCXLAB,NCYLAB,NCFPRO,
43			- NPRCOL,ICOL0,ICOLBX,ICOLPL,ICOLST,ICOLW1,ICOLW2,ICOLW3,
44			- ICOLD1,ICOLD2,ICOLD3,NGBOX,
45			- LTRMS,LTRDEL,LTRINT,LTREXB,TRFLAG(10),LINCAL,
46			- LFULLB,LFULLP,LFULLT,LSPLIT,LSORT,LOUTL,LEPSG,LGSTEP
47			CHARACTER*80 PARTID,PXLAB,PYLAB,PROLAB
48			CHARACTER*10 PNAME
49			CHARACTER*5 PRVIEW
50			CHARACTER*(MXCHAR) FCNTRW
51			COMMON /PARCHR/ PARTID,FCNTRW,PNAME,PXLAB,PYLAB,PROLAB,PRVIEW