diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2021-08-03 14:41:53 -0400 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2021-08-03 14:41:53 -0400 |
| commit | af8fa097905186e0d8ba257e4d70d63fe8901264 (patch) | |
| tree | 647de7ddd01c750e9a80849b3cf79efddf32d4b2 /Dampdat.com | |
| download | moog-af8fa097905186e0d8ba257e4d70d63fe8901264.tar.gz | |
Initial commit
Diffstat (limited to 'Dampdat.com')
| -rwxr-xr-x | Dampdat.com | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/Dampdat.com b/Dampdat.com new file mode 100755 index 0000000..a0eecd0 --- /dev/null +++ b/Dampdat.com @@ -0,0 +1,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 + |