Initial commit

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
+
+