1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
c******************************************************************************
c this common block has data relating (so far) to Barklem damping
c quantities; in the future it may be expanded
c******************************************************************************
real*8 wavebk(30000), idbk(30000), gammabk(30000), alphabk(30000)
real*8 gammarad(30000)
real*8 wavemin, wavemax
integer firstread, numbark, nummin, nummax
common/dampdat/ wavebk, idbk, gammabk, alphabk,
. gammarad,
. wavemin, wavemax,
. firstread, numbark, nummin, nummax
|
