1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
c******************************************************************************
c these common blocks mainly have quantities related to the model
c atmosphere and input/output file names/numbers, and program control
c******************************************************************************
real*8 t(100), theta(100), tkev(100), tlog(100),
. pgas(100), ne(100), nhtot(100), numdens(8,2,100),
. molweight(100), vturb(100), scont(100),
. kapref(100), kaplam(100), tauref(100), taulam(100),
. kaplamabs(100), kaplamsca(100),
. rho(100), rhox(100), xref(100), xdepth(100)
real*8 elem(95), xabund(95), xabu(95), u(95,4,100)
real*8 flux, fudge, wavref, abscale, deltaabund
integer ntau, jtau5, iunits, itru, iraf, modelnum
integer nfparam, nfmodel, nflines, nfslines, nfobs, nftable
integer nf1out, nf2out, nf3out, nf4out, nf5out, nf6out,
. nf7out, nf8out, nf9out, nf10out,
. nfbarklem, nfbarklemUV
integer modprintopt, linprintopt, linprintalt,
. fluxintopt, plotopt, dampingopt, specfileopt,
. linfileopt, printstrong, linecount, oldcount,
. scatopt
character*1024 f1out, f2out, f3out, f4out, f5out, f6out,
. f7out, f8out, f9out, f10out,
. fparam, fmodel, flines, fslines, fobs, ftable,
. fbarklem, fbarklemUV, moogpath, moogpath_default
character*2 names(95)
character*10 modtype
character*7 control
character*3 machine
character*1 silent
common/atmos/t, theta, tkev, tlog,
. pgas, ne, nhtot, numdens,
. molweight, vturb, scont,
. kapref, kaplam, tauref, taulam,
. kaplamabs, kaplamsca,
. rho, rhox, xref, xdepth,
. elem, xabund, xabu, u,
. flux, fudge, wavref, abscale, deltaabund,
. ntau, jtau5, iunits, itru, iraf, modelnum,
. nfparam, nfmodel, nflines, nfslines, nfobs, nftable,
. nf1out, nf2out, nf3out, nf4out, nf5out, nf6out,
. nf7out, nf8out, nf9out, nf10out,
. nfbarklem, nfbarklemUV,
. modprintopt, linprintopt, linprintalt,
. fluxintopt, plotopt, dampingopt, specfileopt,
. linfileopt, printstrong, linecount, oldcount, scatopt
common/charstuff/ f1out, f2out, f3out, f4out, f5out, f6out,
. f7out, f8out, f9out, f10out,
. fparam, fmodel, flines, fslines, fobs, ftable,
. fbarklem, fbarklemUV,
. moogpath,
. names,
. modtype,
. control,
. machine,
. silent
|
