From af8fa097905186e0d8ba257e4d70d63fe8901264 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Tue, 3 Aug 2021 14:41:53 -0400
Subject: Initial commit

---
 Factor.com | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100755 Factor.com

(limited to 'Factor.com')

diff --git a/Factor.com b/Factor.com
new file mode 100755
index 0000000..28a72eb
--- /dev/null
+++ b/Factor.com
@@ -0,0 +1,27 @@
+
+c******************************************************************************
+c     this common block is used for multiple syntheses, and contains
+c     abundance information that MOOG uses to figure out what will be 
+c     altered for the different syntheses.
+c******************************************************************************
+
+      real*8         pecabund(95,5), newpecabund(95,5), abfactor(5)
+      integer        pec(95), newpec(95), 
+     .               numpecatom, newnumpecatom,
+     .               numatomsyn, newnumatomsyn,   
+     .               isynth, ninetynineflag
+      real*8         isotope(20), newisotope(20),
+     .               isoabund(20,5), newisoabund(20,5)
+      integer        numiso, newnumiso,
+     .               numisosyn, newnumisosyn, isorun
+
+      common/newfact/pecabund, newpecabund, abfactor,
+     .               pec, newpec,
+     .               numpecatom, newnumpecatom, 
+     .               numatomsyn, newnumatomsyn, 
+     .               isynth, ninetynineflag
+      common/iso/    isotope, newisotope,
+     .               isoabund, newisoabund,
+     .               numiso, newnumiso,
+     .               numisosyn, newnumisosyn, isorun
+
-- 
cgit