diff options
Diffstat (limited to 'Kappa.com')
| -rwxr-xr-x | Kappa.com | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/Kappa.com b/Kappa.com new file mode 100755 index 0000000..8b3d923 --- /dev/null +++ b/Kappa.com @@ -0,0 +1,23 @@ + +c****************************************************************************** +c this common block holds the internally-stored arrays for continuous +c opacity calculations +c****************************************************************************** + + real*8 aH1(100), aHminus(100) + real*8 aHeminus(100) + real*8 sigel(100), sigH(100), sigH2(100), sigHe(100) + real*8 aC1(100), aMg1(100), aMg2(100), aAl1(100), aSi1(100), + . aSi2(100), aFe1(100) + real*8 evhkt(100) + real*8 freq, freqlg + + common/kappa/aH1, aHminus, + . aHeminus, + . sigel, sigH, sigH2, sigHe, + . aC1, aMg1, aMg2, aAl1, aSi1, + . aSi2, aFe1, + . evhkt, + . freq, freqlg + + |