-
Notifications
You must be signed in to change notification settings - Fork 0
/
Factor.com
executable file
·27 lines (23 loc) · 1.18 KB
/
Factor.com
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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