gpamela/gpgar/gasdata.inc

*
* $Id$
*
* $Log$
*
*
* gasdata.inc
*
*CMZ :  3.00/00 02/05/2001  20.42.25  by  Unknown
*-- Author :
       DOUBLE PRECISION CLSDIS,CLSAVE
       REAL EGAS,VGAS,XGAS,YGAS,DGAS,AGAS,BGAS,MGAS,WGAS,OGAS,
     -      CVGAS,CXGAS,CYGAS,CDGAS,CAGAS,CBGAS,CMGAS,CWGAS,COGAS,
     -      VGAS2,XGAS2,YGAS2,DGAS2,AGAS2,BGAS2,MGAS2,WGAS2,OGAS2,
     -      BANG,BTAB,
     -      VEXTR1,VEXTR2,VEXTR3,VEXTR4,
     -      XEXTR1,XEXTR2,XEXTR3,XEXTR4,
     -      YEXTR1,YEXTR2,YEXTR3,YEXTR4,
     -      DEXTR1,DEXTR2,DEXTR3,DEXTR4,
     -      AEXTR1,AEXTR2,AEXTR3,AEXTR4,
     -      BEXTR1,BEXTR2,BEXTR3,BEXTR4,
     -      MEXTR1,MEXTR2,MEXTR3,MEXTR4,
     -      WEXTR1,WEXTR2,WEXTR3,WEXTR4,
     -      OEXTR1,OEXTR2,OEXTR3,OEXTR4,
     -      GASRNG,
     -      Z,A,RHO,CMEAN,EMPROB,EPAIR,PGAS,TGAS,GASDEN,
     -      DTION,DLION
       LOGICAL GASOK,TAB2D,GASOPT,HEEDOK,GASSET
       INTEGER NGAS,NCLS,NBANG,NBTAB,NFTAB,NFCLS,
     -      IVMETH,IXMETH,IYMETH,IDMETH,IAMETH,IBMETH,IMMETH,
     -      IWMETH,IOMETH,
     -      IVEXTR,IXEXTR,IYEXTR,IDEXTR,IAEXTR,IBEXTR,IMEXTR,
     -      IWEXTR,IOEXTR,
     -      JVEXTR,JXEXTR,JYEXTR,JDEXTR,JAEXTR,JBEXTR,JMEXTR,
     -      JWEXTR,JOEXTR,
     -      IATHR,IBTHR
       CHARACTER*80 GASID
       CHARACTER*(MXCHAR) FCNTAB,FCNCLS
       CHARACTER*10 CLSTYP
       COMMON /GASDAT/ CLSDIS(MXPAIR),CLSAVE,
     -      EGAS(MXLIST),
     -      VGAS(MXLIST),XGAS(MXLIST),YGAS(MXLIST),WGAS(MXLIST),
     -      DGAS(MXLIST),OGAS(MXLIST),AGAS(MXLIST),BGAS(MXLIST),
     -      MGAS(MXLIST),
     -      CVGAS(MXLIST),CXGAS(MXLIST),CYGAS(MXLIST),CWGAS(MXLIST),
     -      CDGAS(MXLIST),COGAS(MXLIST),CAGAS(MXLIST),CBGAS(MXLIST),
     -      CMGAS(MXLIST),
     -      VGAS2(MXLIST,MXBANG,MXBTAB),WGAS2(MXLIST,MXBANG,MXBTAB),
     -      XGAS2(MXLIST,MXBANG,MXBTAB),YGAS2(MXLIST,MXBANG,MXBTAB),
     -      AGAS2(MXLIST,MXBANG,MXBTAB),BGAS2(MXLIST,MXBANG,MXBTAB),
     -      DGAS2(MXLIST,MXBANG,MXBTAB),OGAS2(MXLIST,MXBANG,MXBTAB),
     -      MGAS2(MXLIST,MXBANG,MXBTAB),
     -      BANG(MXBANG),BTAB(MXBTAB),
     -      GASRNG(8,2),
     -      Z,A,RHO,CMEAN,EMPROB,EPAIR,PGAS,TGAS,GASDEN,
     -      DTION,DLION,
     -      VEXTR1,VEXTR2,VEXTR3,VEXTR4,
     -      XEXTR1,XEXTR2,XEXTR3,XEXTR4,
     -      YEXTR1,YEXTR2,YEXTR3,YEXTR4,
     -      DEXTR1,DEXTR2,DEXTR3,DEXTR4,
     -      AEXTR1,AEXTR2,AEXTR3,AEXTR4,
     -      BEXTR1,BEXTR2,BEXTR3,BEXTR4,
     -      MEXTR1,MEXTR2,MEXTR3,MEXTR4,
     -      WEXTR1,WEXTR2,WEXTR3,WEXTR4,
     -      OEXTR1,OEXTR2,OEXTR3,OEXTR4,
     -      IVMETH,IXMETH,IYMETH,IDMETH,IAMETH,IBMETH,IMMETH,
     -      IWMETH,IOMETH,
     -      IVEXTR,IXEXTR,IYEXTR,IDEXTR,IAEXTR,IBEXTR,IMEXTR,
     -      IWEXTR,IOEXTR,
     -      JVEXTR,JXEXTR,JYEXTR,JDEXTR,JAEXTR,JBEXTR,JMEXTR,
     -      JWEXTR,JOEXTR,
     -      NGAS,NCLS,NBANG,NBTAB,NFTAB,NFCLS,
     -      IATHR,IBTHR,
     -      GASOK(14),GASOPT(14,4),
     -      TAB2D,HEEDOK,GASSET
       COMMON /GASCHR/ FCNTAB,FCNCLS,CLSTYP,GASID
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gasdata.inc
8			*
9			*CMZ : 3.00/00 02/05/2001 20.42.25 by Unknown
10			*-- Author :
11			DOUBLE PRECISION CLSDIS,CLSAVE
12			REAL EGAS,VGAS,XGAS,YGAS,DGAS,AGAS,BGAS,MGAS,WGAS,OGAS,
13			- CVGAS,CXGAS,CYGAS,CDGAS,CAGAS,CBGAS,CMGAS,CWGAS,COGAS,
14			- VGAS2,XGAS2,YGAS2,DGAS2,AGAS2,BGAS2,MGAS2,WGAS2,OGAS2,
15			- BANG,BTAB,
16			- VEXTR1,VEXTR2,VEXTR3,VEXTR4,
17			- XEXTR1,XEXTR2,XEXTR3,XEXTR4,
18			- YEXTR1,YEXTR2,YEXTR3,YEXTR4,
19			- DEXTR1,DEXTR2,DEXTR3,DEXTR4,
20			- AEXTR1,AEXTR2,AEXTR3,AEXTR4,
21			- BEXTR1,BEXTR2,BEXTR3,BEXTR4,
22			- MEXTR1,MEXTR2,MEXTR3,MEXTR4,
23			- WEXTR1,WEXTR2,WEXTR3,WEXTR4,
24			- OEXTR1,OEXTR2,OEXTR3,OEXTR4,
25			- GASRNG,
26			- Z,A,RHO,CMEAN,EMPROB,EPAIR,PGAS,TGAS,GASDEN,
27			- DTION,DLION
28			LOGICAL GASOK,TAB2D,GASOPT,HEEDOK,GASSET
29			INTEGER NGAS,NCLS,NBANG,NBTAB,NFTAB,NFCLS,
30			- IVMETH,IXMETH,IYMETH,IDMETH,IAMETH,IBMETH,IMMETH,
31			- IWMETH,IOMETH,
32			- IVEXTR,IXEXTR,IYEXTR,IDEXTR,IAEXTR,IBEXTR,IMEXTR,
33			- IWEXTR,IOEXTR,
34			- JVEXTR,JXEXTR,JYEXTR,JDEXTR,JAEXTR,JBEXTR,JMEXTR,
35			- JWEXTR,JOEXTR,
36			- IATHR,IBTHR
37			CHARACTER*80 GASID
38			CHARACTER*(MXCHAR) FCNTAB,FCNCLS
39			CHARACTER*10 CLSTYP
40			COMMON /GASDAT/ CLSDIS(MXPAIR),CLSAVE,
41			- EGAS(MXLIST),
42			- VGAS(MXLIST),XGAS(MXLIST),YGAS(MXLIST),WGAS(MXLIST),
43			- DGAS(MXLIST),OGAS(MXLIST),AGAS(MXLIST),BGAS(MXLIST),
44			- MGAS(MXLIST),
45			- CVGAS(MXLIST),CXGAS(MXLIST),CYGAS(MXLIST),CWGAS(MXLIST),
46			- CDGAS(MXLIST),COGAS(MXLIST),CAGAS(MXLIST),CBGAS(MXLIST),
47			- CMGAS(MXLIST),
48			- VGAS2(MXLIST,MXBANG,MXBTAB),WGAS2(MXLIST,MXBANG,MXBTAB),
49			- XGAS2(MXLIST,MXBANG,MXBTAB),YGAS2(MXLIST,MXBANG,MXBTAB),
50			- AGAS2(MXLIST,MXBANG,MXBTAB),BGAS2(MXLIST,MXBANG,MXBTAB),
51			- DGAS2(MXLIST,MXBANG,MXBTAB),OGAS2(MXLIST,MXBANG,MXBTAB),
52			- MGAS2(MXLIST,MXBANG,MXBTAB),
53			- BANG(MXBANG),BTAB(MXBTAB),
54			- GASRNG(8,2),
55			- Z,A,RHO,CMEAN,EMPROB,EPAIR,PGAS,TGAS,GASDEN,
56			- DTION,DLION,
57			- VEXTR1,VEXTR2,VEXTR3,VEXTR4,
58			- XEXTR1,XEXTR2,XEXTR3,XEXTR4,
59			- YEXTR1,YEXTR2,YEXTR3,YEXTR4,
60			- DEXTR1,DEXTR2,DEXTR3,DEXTR4,
61			- AEXTR1,AEXTR2,AEXTR3,AEXTR4,
62			- BEXTR1,BEXTR2,BEXTR3,BEXTR4,
63			- MEXTR1,MEXTR2,MEXTR3,MEXTR4,
64			- WEXTR1,WEXTR2,WEXTR3,WEXTR4,
65			- OEXTR1,OEXTR2,OEXTR3,OEXTR4,
66			- IVMETH,IXMETH,IYMETH,IDMETH,IAMETH,IBMETH,IMMETH,
67			- IWMETH,IOMETH,
68			- IVEXTR,IXEXTR,IYEXTR,IDEXTR,IAEXTR,IBEXTR,IMEXTR,
69			- IWEXTR,IOEXTR,
70			- JVEXTR,JXEXTR,JYEXTR,JDEXTR,JAEXTR,JBEXTR,JMEXTR,
71			- JWEXTR,JOEXTR,
72			- NGAS,NCLS,NBANG,NBTAB,NFTAB,NFCLS,
73			- IATHR,IBTHR,
74			- GASOK(14),GASOPT(14,4),
75			- TAB2D,HEEDOK,GASSET
76			COMMON /GASCHR/ FCNTAB,FCNCLS,CLSTYP,GASID