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