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	*
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