diff options
Diffstat (limited to 'Linex.com')
| -rwxr-xr-x | Linex.com | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/Linex.com b/Linex.com new file mode 100755 index 0000000..44aaf0e --- /dev/null +++ b/Linex.com @@ -0,0 +1,52 @@ + +c****************************************************************************** +c this common block has variables related to the lines. Most +c input quantities typically have single dimensions, while the +c things that are computed for each line at each atmosphere level +c have double dimensions. The variables "a", "dopp", and +c "kapnu0" are often over-written with plotting data, +c so leave them alone or suffer unspeakable programming tortures. +c****************************************************************************** + + real*8 a(2500,100), dopp(2500,100), kapnu0(2500,100) + real*8 gf(2500), wave1(2500), atom1(2500), e(2500,2), + . chi(2500,3), amass(2500), charge(2500), d0(2500), + . dampnum(2500), gf1(2500), width(2500), + . abundout(2500), widout(2500), strength(2500), + . rdmass(2500), gambark(2500), alpbark(2500), + . gamrad(2500), wid1comp(2500) + real*8 kapnu(100), taunu(100), cd(100), sline(100) + real*8 d(5000), dellam(400), w(100), + . rwtab(3000), gftab(3000), gfhold + real*8 delta, start, sstop, step, contnorm, + . oldstart, oldstop, oldstep, olddelta + real*8 rwlow, rwhigh, rwstep, wavestep, cogatom, + . delwave, wave, waveold, st1 + real*8 gammatot, gammav, gammas, gammar + integer group(2500), dostrong, gfstyle, lineflag, molflag, + . lim1, lim2, mode, nlines, nstrong, ndepths, ncurve, + . lim1line, lim2line, n1marker, ntabtot, + . iabatom, iaa, ibb + character*7 damptype(2500) + + common/linex/a, dopp, kapnu0, + . gf, wave1, atom1, e, + . chi, amass, charge, d0, + . dampnum, gf1, width, + . abundout, widout, strength, + . rdmass, gambark, alpbark, + . gamrad, wid1comp, + . kapnu, taunu, cd, sline, + . d, dellam, w, + . rwtab, gftab, gfhold, + . delta, start, sstop, step, contnorm, + . oldstart, oldstop, oldstep, olddelta, + . rwlow, rwhigh, rwstep, wavestep, cogatom, + . delwave, wave, waveold, st1, + . gammatot, gammav, gammas, gammar, + . group, dostrong, gfstyle, lineflag, molflag, + . lim1, lim2, mode, nlines, nstrong, ndepths, ncurve, + . lim1line, lim2line, n1marker, ntabtot, + . iabatom, iaa, ibb + common/lindamp/damptype + |