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 /Factor.com | |
| download | moog-af8fa097905186e0d8ba257e4d70d63fe8901264.tar.gz | |
Initial commit
Diffstat (limited to 'Factor.com')
| -rwxr-xr-x | Factor.com | 27 |
1 files changed, 27 insertions, 0 deletions
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 + |