Line data Source code
1 : ! ***********************************************************************
2 : !
3 : ! Copyright (C) 2010 The MESA Team
4 : !
5 : ! This program is free software: you can redistribute it and/or modify
6 : ! it under the terms of the GNU Lesser General Public License
7 : ! as published by the Free Software Foundation,
8 : ! either version 3 of the License, or (at your option) any later version.
9 : !
10 : ! This program is distributed in the hope that it will be useful,
11 : ! but WITHOUT ANY WARRANTY; without even the implied warranty of
12 : ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
13 : ! See the GNU Lesser General Public License for more details.
14 : !
15 : ! You should have received a copy of the GNU Lesser General Public License
16 : ! along with this program. If not, see <https://www.gnu.org/licenses/>.
17 : !
18 : ! ***********************************************************************
19 :
20 : module rates_names
21 :
22 : use utils_lib, only: mesa_error
23 :
24 : implicit none
25 :
26 :
27 : contains
28 :
29 3 : subroutine set_reaction_names
30 : use rates_def
31 : integer :: i, cnt
32 :
33 3 : cnt = 0
34 924 : reaction_Name(:) = ''
35 :
36 3 : reaction_Name(ir1212) = 'r1212'
37 3 : reaction_Name(ir1216) = 'r1216'
38 3 : reaction_Name(ir1216_to_mg24) = 'r1216_to_mg24'
39 3 : reaction_Name(ir1216_to_si28) = 'r1216_to_si28'
40 3 : reaction_Name(ir1616) = 'r1616'
41 3 : reaction_Name(ir1616a) = 'r1616a'
42 3 : reaction_Name(ir1616g) = 'r1616g'
43 3 : reaction_Name(ir1616p_aux) = 'r1616p_aux'
44 3 : reaction_Name(ir1616ppa) = 'r1616ppa'
45 3 : reaction_Name(ir1616ppg) = 'r1616ppg'
46 3 : reaction_Name(ir_he3_ag_be7) = 'r_he3_ag_be7'
47 3 : reaction_Name(ir34_pp2) = 'r34_pp2'
48 3 : reaction_Name(ir34_pp3) = 'r34_pp3'
49 3 : reaction_Name(ir_al27_pa_mg24) = 'r_al27_pa_mg24'
50 3 : reaction_Name(ir_ar36_ag_ca40) = 'r_ar36_ag_ca40'
51 3 : reaction_Name(ir_ar36_ga_s32) = 'r_ar36_ga_s32'
52 3 : reaction_Name(ir_b8_gp_be7) = 'r_b8_gp_be7'
53 3 : reaction_Name(ir_be7_wk_li7) = 'r_be7_wk_li7'
54 3 : reaction_Name(ir_be7_pg_b8) = 'r_be7_pg_b8'
55 3 : reaction_Name(ir_c12_ag_o16) = 'r_c12_ag_o16'
56 3 : reaction_Name(ir_c12_ap_n15) = 'r_c12_ap_n15'
57 3 : reaction_Name(ir_c12_pg_n13) = 'r_c12_pg_n13'
58 3 : reaction_Name(ir_c12_to_he4_he4_he4) = 'r_c12_to_he4_he4_he4'
59 3 : reaction_Name(ir_c13_an_o16) = 'r_c13_an_o16'
60 3 : reaction_Name(ir_c13_pg_n14) = 'r_c13_pg_n14'
61 3 : reaction_Name(ir_ca40_ag_ti44) = 'r_ca40_ag_ti44'
62 3 : reaction_Name(ir_ca40_ga_ar36) = 'r_ca40_ga_ar36'
63 3 : reaction_Name(ir_cr48_ag_fe52) = 'r_cr48_ag_fe52'
64 3 : reaction_Name(ir_cr48_ga_ti44) = 'r_cr48_ga_ti44'
65 3 : reaction_Name(ir_f17_ap_ne20) = 'r_f17_ap_ne20'
66 3 : reaction_Name(ir_f17_gp_o16) = 'r_f17_gp_o16'
67 3 : reaction_Name(ir_f17_pa_o14) = 'r_f17_pa_o14'
68 3 : reaction_Name(ir_f18_gp_o17) = 'r_f18_gp_o17'
69 3 : reaction_Name(ir_f18_pa_o15) = 'r_f18_pa_o15'
70 3 : reaction_Name(ir_f19_ap_ne22) = 'r_f19_ap_ne22'
71 3 : reaction_Name(ir_f19_gp_o18) = 'r_f19_gp_o18'
72 3 : reaction_Name(ir_f19_pa_o16) = 'r_f19_pa_o16'
73 3 : reaction_Name(ir_f19_pg_ne20) = 'r_f19_pg_ne20'
74 3 : reaction_Name(ir_fe52_ag_ni56) = 'r_fe52_ag_ni56'
75 3 : reaction_Name(ir_fe52_ga_cr48) = 'r_fe52_ga_cr48'
76 3 : reaction_Name(ir_h2_be7_to_h1_he4_he4) = 'r_h2_be7_to_h1_he4_he4'
77 3 : reaction_Name(ir_h2_h2_to_he4) = 'r_h2_h2_to_he4'
78 3 : reaction_Name(ir_h2_he3_to_h1_he4) = 'r_h2_he3_to_h1_he4'
79 3 : reaction_Name(ir_he3_be7_to_h1_h1_he4_he4) = 'r_he3_be7_to_h1_h1_he4_he4'
80 3 : reaction_Name(ir_he3_he3_to_h1_h1_he4) = 'r_he3_he3_to_h1_h1_he4'
81 3 : reaction_Name(ir_h1_h1_he4_to_he3_he3) = 'r_h1_h1_he4_to_he3_he3'
82 3 : reaction_Name(ir_he4_he4_he4_to_c12) = 'r_he4_he4_he4_to_c12'
83 3 : reaction_Name(ir_li7_pa_he4) = 'r_li7_pa_he4'
84 3 : reaction_Name(ir_he4_ap_li7) = 'r_he4_ap_li7'
85 3 : reaction_Name(ir_mg24_ag_si28) = 'r_mg24_ag_si28'
86 3 : reaction_Name(ir_mg24_ap_al27) = 'r_mg24_ap_al27'
87 3 : reaction_Name(ir_mg24_ga_ne20) = 'r_mg24_ga_ne20'
88 3 : reaction_Name(ir_n13_ap_o16) = 'r_n13_ap_o16'
89 3 : reaction_Name(ir_n13_gp_c12) = 'r_n13_gp_c12'
90 3 : reaction_Name(ir_n13_pg_o14) = 'r_n13_pg_o14'
91 3 : reaction_Name(ir_n14_ag_f18) = 'r_n14_ag_f18'
92 3 : reaction_Name(ir_n14_ap_o17) = 'r_n14_ap_o17'
93 3 : reaction_Name(ir_n14_gp_c13) = 'r_n14_gp_c13'
94 3 : reaction_Name(ir_n14_pg_o15) = 'r_n14_pg_o15'
95 3 : reaction_Name(ir_n15_ag_f19) = 'r_n15_ag_f19'
96 3 : reaction_Name(ir_n15_ap_o18) = 'r_n15_ap_o18'
97 3 : reaction_Name(ir_n15_pa_c12) = 'r_n15_pa_c12'
98 3 : reaction_Name(ir_n15_pg_o16) = 'r_n15_pg_o16'
99 3 : reaction_Name(ir_na23_pa_ne20) = 'r_na23_pa_ne20'
100 3 : reaction_Name(ir_ne18_gp_f17) = 'r_ne18_gp_f17'
101 3 : reaction_Name(ir_ne19_ga_o15) = 'r_ne19_ga_o15'
102 3 : reaction_Name(ir_ne19_gp_f18) = 'r_ne19_gp_f18'
103 3 : reaction_Name(ir_ne20_ag_mg24) = 'r_ne20_ag_mg24'
104 3 : reaction_Name(ir_ne20_ap_na23) = 'r_ne20_ap_na23'
105 3 : reaction_Name(ir_ne20_ga_o16) = 'r_ne20_ga_o16'
106 3 : reaction_Name(ir_ne20_gp_f19) = 'r_ne20_gp_f19'
107 3 : reaction_Name(ir_ne22_ag_mg26) = 'r_ne22_ag_mg26'
108 3 : reaction_Name(ir_ne22_pg_na23) = 'r_ne22_pg_na23'
109 3 : reaction_Name(ir_ni56_ga_fe52) = 'r_ni56_ga_fe52'
110 3 : reaction_Name(ir_o14_ag_ne18) = 'r_o14_ag_ne18'
111 3 : reaction_Name(ir_o14_ap_f17) = 'r_o14_ap_f17'
112 3 : reaction_Name(ir_o14_gp_n13) = 'r_o14_gp_n13'
113 3 : reaction_Name(ir_o15_ag_ne19) = 'r_o15_ag_ne19'
114 3 : reaction_Name(ir_o15_ap_f18) = 'r_o15_ap_f18'
115 3 : reaction_Name(ir_o15_gp_n14) = 'r_o15_gp_n14'
116 3 : reaction_Name(ir_o16_ag_ne20) = 'r_o16_ag_ne20'
117 3 : reaction_Name(ir_o16_ap_f19) = 'r_o16_ap_f19'
118 3 : reaction_Name(ir_o16_ga_c12) = 'r_o16_ga_c12'
119 3 : reaction_Name(ir_o16_gp_n15) = 'r_o16_gp_n15'
120 3 : reaction_Name(ir_o16_pg_f17) = 'r_o16_pg_f17'
121 3 : reaction_Name(ir_o17_pa_n14) = 'r_o17_pa_n14'
122 3 : reaction_Name(ir_o17_pg_f18) = 'r_o17_pg_f18'
123 3 : reaction_Name(ir_o18_ag_ne22) = 'r_o18_ag_ne22'
124 3 : reaction_Name(ir_o18_pa_n15) = 'r_o18_pa_n15'
125 3 : reaction_Name(ir_o18_pg_f19) = 'r_o18_pg_f19'
126 3 : reaction_Name(ir_f17_pg_ne18) = 'r_f17_pg_ne18'
127 3 : reaction_Name(ir_f18_pg_ne19) = 'r_f18_pg_ne19'
128 3 : reaction_Name(ir_s32_ag_ar36) = 'r_s32_ag_ar36'
129 3 : reaction_Name(ir_s32_ga_si28) = 'r_s32_ga_si28'
130 3 : reaction_Name(ir_si28_ag_s32) = 'r_si28_ag_s32'
131 3 : reaction_Name(ir_si28_ga_mg24) = 'r_si28_ga_mg24'
132 3 : reaction_Name(ir_ti44_ag_cr48) = 'r_ti44_ag_cr48'
133 3 : reaction_Name(ir_ti44_ga_ca40) = 'r_ti44_ga_ca40'
134 3 : reaction_Name(iral27pa_aux) = 'ral27pa_aux'
135 3 : reaction_Name(iral27pg_aux) = 'ral27pg_aux'
136 3 : reaction_Name(irar36ap_aux) = 'rar36ap_aux'
137 3 : reaction_Name(irar36ap_to_ca40) = 'rar36ap_to_ca40'
138 3 : reaction_Name(irar36gp_aux) = 'rar36gp_aux'
139 3 : reaction_Name(irar36gp_to_s32) = 'rar36gp_to_s32'
140 3 : reaction_Name(irbe7ec_li7_aux) = 'rbe7ec_li7_aux'
141 3 : reaction_Name(irbe7pg_b8_aux) = 'rbe7pg_b8_aux'
142 3 : reaction_Name(irc12_to_c13) = 'rc12_to_c13'
143 3 : reaction_Name(irc12_to_n14) = 'rc12_to_n14'
144 3 : reaction_Name(irc12ap_aux) = 'rc12ap_aux'
145 3 : reaction_Name(irc12ap_to_o16) = 'rc12ap_to_o16'
146 3 : reaction_Name(irca40ap_aux) = 'rca40ap_aux'
147 3 : reaction_Name(irca40ap_to_ti44) = 'rca40ap_to_ti44'
148 3 : reaction_Name(irca40gp_aux) = 'rca40gp_aux'
149 3 : reaction_Name(irca40gp_to_ar36) = 'rca40gp_to_ar36'
150 3 : reaction_Name(ircl35pa_aux) = 'rcl35pa_aux'
151 3 : reaction_Name(ircl35pg_aux) = 'rcl35pg_aux'
152 3 : reaction_Name(irco55gprot_aux) = 'rco55gprot_aux'
153 3 : reaction_Name(irco55pg_aux) = 'rco55pg_aux'
154 3 : reaction_Name(irco55protg_aux) = 'rco55protg_aux'
155 3 : reaction_Name(ircr48ap_aux) = 'rcr48ap_aux'
156 3 : reaction_Name(ircr48ap_to_fe52) = 'rcr48ap_to_fe52'
157 3 : reaction_Name(ircr48gp_aux) = 'rcr48gp_aux'
158 3 : reaction_Name(ircr48gp_to_ti44) = 'rcr48gp_to_ti44'
159 3 : reaction_Name(irf19pg_aux) = 'rf19pg_aux'
160 3 : reaction_Name(irfe52ap_aux) = 'rfe52ap_aux'
161 3 : reaction_Name(irfe52ap_to_ni56) = 'rfe52ap_to_ni56'
162 3 : reaction_Name(irfe52aprot_aux) = 'rfe52aprot_aux'
163 3 : reaction_Name(irfe52aprot_to_fe54) = 'rfe52aprot_to_fe54'
164 3 : reaction_Name(irfe52aprot_to_ni56) = 'rfe52aprot_to_ni56'
165 3 : reaction_Name(irfe52gp_aux) = 'rfe52gp_aux'
166 3 : reaction_Name(irfe52gp_to_cr48) = 'rfe52gp_to_cr48'
167 3 : reaction_Name(irfe52neut_to_fe54) = 'rfe52neut_to_fe54'
168 3 : reaction_Name(irfe52ng_aux) = 'rfe52ng_aux'
169 3 : reaction_Name(irfe53gn_aux) = 'rfe53gn_aux'
170 3 : reaction_Name(irfe53ng_aux) = 'rfe53ng_aux'
171 3 : reaction_Name(irfe54a_to_ni56) = 'rfe54a_to_ni56'
172 3 : reaction_Name(irfe54an_aux) = 'rfe54an_aux'
173 3 : reaction_Name(irfe54an_to_ni56) = 'rfe54an_to_ni56'
174 3 : reaction_Name(irfe54aprot_to_fe56) = 'rfe54aprot_to_fe56'
175 3 : reaction_Name(irfe54g_to_fe52) = 'rfe54g_to_fe52'
176 3 : reaction_Name(irfe54ng_aux) = 'rfe54ng_aux'
177 3 : reaction_Name(irfe54ng_to_fe56) = 'rfe54ng_to_fe56'
178 3 : reaction_Name(irfe54prot_to_fe52) = 'rfe54prot_to_fe52'
179 3 : reaction_Name(irfe54prot_to_ni56) = 'rfe54prot_to_ni56'
180 3 : reaction_Name(irfe54protg_aux) = 'rfe54protg_aux'
181 3 : reaction_Name(irfe55gn_aux) = 'rfe55gn_aux'
182 3 : reaction_Name(irfe55ng_aux) = 'rfe55ng_aux'
183 3 : reaction_Name(irfe56ec_fake_to_mn56) = 'rfe56ec_fake_to_mn56'
184 3 : reaction_Name(irfe56ec_fake_to_mn57) = 'rfe56ec_fake_to_mn57'
185 3 : reaction_Name(irfe56ec_fake_to_cr56) = 'rfe56ec_fake_to_cr56'
186 3 : reaction_Name(irfe56ec_fake_to_cr57) = 'rfe56ec_fake_to_cr57'
187 3 : reaction_Name(irfe56ec_fake_to_cr58) = 'rfe56ec_fake_to_cr58'
188 3 : reaction_Name(irfe56ec_fake_to_cr59) = 'rfe56ec_fake_to_cr59'
189 3 : reaction_Name(irfe56ec_fake_to_cr60) = 'rfe56ec_fake_to_cr60'
190 3 : reaction_Name(irfe56ec_fake_to_cr61) = 'rfe56ec_fake_to_cr61'
191 3 : reaction_Name(irfe56ec_fake_to_cr62) = 'rfe56ec_fake_to_cr62'
192 3 : reaction_Name(irfe56ec_fake_to_cr63) = 'rfe56ec_fake_to_cr63'
193 3 : reaction_Name(irfe56ec_fake_to_cr64) = 'rfe56ec_fake_to_cr64'
194 3 : reaction_Name(irfe56ec_fake_to_cr65) = 'rfe56ec_fake_to_cr65'
195 3 : reaction_Name(irfe56ec_fake_to_cr66) = 'rfe56ec_fake_to_cr66'
196 3 : reaction_Name(irfe56ee_to_ni56) = 'rfe56ee_to_ni56'
197 3 : reaction_Name(irfe56gn_aux) = 'rfe56gn_aux'
198 3 : reaction_Name(irfe56gn_to_fe54) = 'rfe56gn_to_fe54'
199 3 : reaction_Name(irfe56prot_to_fe54) = 'rfe56prot_to_fe54'
200 3 : reaction_Name(irh2_protg_aux) = 'rh2_protg_aux'
201 3 : reaction_Name(irh2g_neut_aux) = 'rh2g_neut_aux'
202 3 : reaction_Name(irhe3_neutg_aux) = 'rhe3_neutg_aux'
203 3 : reaction_Name(irhe3gprot_aux) = 'rhe3gprot_aux'
204 3 : reaction_Name(irhe4_breakup) = 'rhe4_breakup'
205 3 : reaction_Name(irhe4_rebuild) = 'rhe4_rebuild'
206 3 : reaction_Name(irhe4g_neut_aux) = 'rhe4g_neut_aux'
207 3 : reaction_Name(irk39pa_aux) = 'rk39pa_aux'
208 3 : reaction_Name(irk39pg_aux) = 'rk39pg_aux'
209 3 : reaction_Name(irmg24ap_aux) = 'rmg24ap_aux'
210 3 : reaction_Name(irmg24ap_to_si28) = 'rmg24ap_to_si28'
211 3 : reaction_Name(irmg24gp_aux) = 'rmg24gp_aux'
212 3 : reaction_Name(irmg24gp_to_ne20) = 'rmg24gp_to_ne20'
213 3 : reaction_Name(irmn51pg_aux) = 'rmn51pg_aux'
214 3 : reaction_Name(irn14_to_c12) = 'rn14_to_c12'
215 3 : reaction_Name(irn14_to_n15) = 'rn14_to_n15'
216 3 : reaction_Name(irn14_to_o16) = 'rn14_to_o16'
217 3 : reaction_Name(irn14ag_lite) = 'rn14ag_lite'
218 3 : reaction_Name(irn14gc12) = 'rn14gc12'
219 3 : reaction_Name(irn14pg_aux) = 'rn14pg_aux'
220 3 : reaction_Name(irn15pa_aux) = 'rn15pa_aux'
221 3 : reaction_Name(irn15pg_aux) = 'rn15pg_aux'
222 3 : reaction_Name(irna23pa_aux) = 'rna23pa_aux'
223 3 : reaction_Name(irna23pg_aux) = 'rna23pg_aux'
224 3 : reaction_Name(irne18ag_to_mg24) = 'rne18ag_to_mg24'
225 3 : reaction_Name(irne18ap_to_mg22) = 'rne18ap_to_mg22'
226 3 : reaction_Name(irne18ap_to_mg24) = 'rne18ap_to_mg24'
227 3 : reaction_Name(irne19pg_to_mg22) = 'rne19pg_to_mg22'
228 3 : reaction_Name(irne19pg_to_mg24) = 'rne19pg_to_mg24'
229 3 : reaction_Name(irne20ap_aux) = 'rne20ap_aux'
230 3 : reaction_Name(irne20ap_to_mg24) = 'rne20ap_to_mg24'
231 3 : reaction_Name(irne20gp_aux) = 'rne20gp_aux'
232 3 : reaction_Name(irne20gp_to_o16) = 'rne20gp_to_o16'
233 3 : reaction_Name(irne20pg_to_mg22) = 'rne20pg_to_mg22'
234 3 : reaction_Name(irne20pg_to_mg24) = 'rne20pg_to_mg24'
235 3 : reaction_Name(irneut_to_prot) = 'rneut_to_prot'
236 3 : reaction_Name(irni56ec_to_fe54) = 'rni56ec_to_fe54'
237 3 : reaction_Name(irni56ec_to_fe56) = 'rni56ec_to_fe56'
238 :
239 3 : reaction_Name(irni56ec_to_co56) = 'rni56ec_to_co56'
240 3 : reaction_Name(irco56ec_to_fe56) = 'rco56ec_to_fe56'
241 :
242 3 : reaction_Name(irni56gp_aux) = 'rni56gp_aux'
243 3 : reaction_Name(irni56gp_to_fe52) = 'rni56gp_to_fe52'
244 3 : reaction_Name(irni56gprot_aux) = 'rni56gprot_aux'
245 3 : reaction_Name(irni56gprot_to_fe52) = 'rni56gprot_to_fe52'
246 3 : reaction_Name(irni56gprot_to_fe54) = 'rni56gprot_to_fe54'
247 3 : reaction_Name(irni56ng_to_fe54) = 'rni56ng_to_fe54'
248 3 : reaction_Name(irni57na_aux) = 'rni57na_aux'
249 3 : reaction_Name(iro16_to_n14) = 'ro16_to_n14'
250 3 : reaction_Name(iro16_to_o17) = 'ro16_to_o17'
251 3 : reaction_Name(iro16ap_aux) = 'ro16ap_aux'
252 3 : reaction_Name(iro16ap_to_ne20) = 'ro16ap_to_ne20'
253 3 : reaction_Name(iro16gp_aux) = 'ro16gp_aux'
254 3 : reaction_Name(iro16gp_to_c12) = 'ro16gp_to_c12'
255 3 : reaction_Name(iro17_to_o18) = 'ro17_to_o18'
256 3 : reaction_Name(irp31pa_aux) = 'rp31pa_aux'
257 3 : reaction_Name(irp31pg_aux) = 'rp31pg_aux'
258 3 : reaction_Name(irpep_to_he3) = 'rpep_to_he3'
259 3 : reaction_Name(irpp_to_he3) = 'rpp_to_he3'
260 3 : reaction_Name(irprot_neutg_aux) = 'rprot_neutg_aux'
261 3 : reaction_Name(irprot_to_neut) = 'rprot_to_neut'
262 3 : reaction_Name(irs32ap_aux) = 'rs32ap_aux'
263 3 : reaction_Name(irs32ap_to_ar36) = 'rs32ap_to_ar36'
264 3 : reaction_Name(irs32gp_aux) = 'rs32gp_aux'
265 3 : reaction_Name(irs32gp_to_si28) = 'rs32gp_to_si28'
266 3 : reaction_Name(irsc43pa_aux) = 'rsc43pa_aux'
267 3 : reaction_Name(irsc43pg_aux) = 'rsc43pg_aux'
268 3 : reaction_Name(irsi28ap_aux) = 'rsi28ap_aux'
269 3 : reaction_Name(irsi28ap_to_s32) = 'rsi28ap_to_s32'
270 3 : reaction_Name(irsi28gp_aux) = 'rsi28gp_aux'
271 3 : reaction_Name(irsi28gp_to_mg24) = 'rsi28gp_to_mg24'
272 3 : reaction_Name(irti44ap_aux) = 'rti44ap_aux'
273 3 : reaction_Name(irti44ap_to_cr48) = 'rti44ap_to_cr48'
274 3 : reaction_Name(irti44gp_aux) = 'rti44gp_aux'
275 3 : reaction_Name(irti44gp_to_ca40) = 'rti44gp_to_ca40'
276 3 : reaction_Name(irv47pa_aux) = 'rv47pa_aux'
277 3 : reaction_Name(irv47pg_aux) = 'rv47pg_aux'
278 3 : reaction_Name(ir_h1_h1_wk_h2) = 'r_h1_h1_wk_h2'
279 3 : reaction_Name(ir_h1_h1_ec_h2) = 'r_h1_h1_ec_h2'
280 3 : reaction_Name(irn14ag_to_ne22) = 'rn14ag_to_ne22'
281 3 : reaction_Name(irf19pa_aux) = 'rf19pa_aux'
282 3 : reaction_Name(ir_b8_wk_he4_he4) = 'r_b8_wk_he4_he4'
283 3 : reaction_Name(irmn51pa_aux) = 'rmn51pa_aux'
284 3 : reaction_Name(irfe54gn_aux) = 'rfe54gn_aux'
285 3 : reaction_Name(irco55pa_aux) = 'rco55pa_aux'
286 3 : reaction_Name(irco55prota_aux) = 'rco55prota_aux'
287 3 : reaction_Name(irn14ag_to_o18) = 'rn14ag_to_o18'
288 3 : reaction_Name(ir_h1_he3_wk_he4) = 'r_h1_he3_wk_he4'
289 :
290 3 : reaction_Name(ir_al27_pg_si28) = 'r_al27_pg_si28'
291 3 : reaction_Name(ir_si28_gp_al27) = 'r_si28_gp_al27'
292 3 : reaction_Name(ir_si28_ap_p31) = 'r_si28_ap_p31'
293 3 : reaction_Name(ir_p31_pa_si28) = 'r_p31_pa_si28'
294 3 : reaction_Name(ir_p31_pg_s32) = 'r_p31_pg_s32'
295 3 : reaction_Name(ir_s32_gp_p31) = 'r_s32_gp_p31'
296 3 : reaction_Name(ir_s32_ap_cl35) = 'r_s32_ap_cl35'
297 3 : reaction_Name(ir_cl35_pa_s32) = 'r_cl35_pa_s32'
298 3 : reaction_Name(ir_cl35_pg_ar36) = 'r_cl35_pg_ar36'
299 3 : reaction_Name(ir_ar36_gp_cl35) = 'r_ar36_gp_cl35'
300 3 : reaction_Name(ir_ar36_ap_k39) = 'r_ar36_ap_k39'
301 3 : reaction_Name(ir_k39_pa_ar36) = 'r_k39_pa_ar36'
302 3 : reaction_Name(ir_k39_pg_ca40) = 'r_k39_pg_ca40'
303 3 : reaction_Name(ir_ca40_gp_k39) = 'r_ca40_gp_k39'
304 3 : reaction_Name(ir_ca40_ap_sc43) = 'r_ca40_ap_sc43'
305 3 : reaction_Name(ir_sc43_pa_ca40) = 'r_sc43_pa_ca40'
306 3 : reaction_Name(ir_sc43_pg_ti44) = 'r_sc43_pg_ti44'
307 3 : reaction_Name(ir_ti44_gp_sc43) = 'r_ti44_gp_sc43'
308 3 : reaction_Name(ir_ti44_ap_v47) = 'r_ti44_ap_v47'
309 3 : reaction_Name(ir_v47_pa_ti44) = 'r_v47_pa_ti44'
310 3 : reaction_Name(ir_v47_pg_cr48) = 'r_v47_pg_cr48'
311 3 : reaction_Name(ir_cr48_gp_v47) = 'r_cr48_gp_v47'
312 3 : reaction_Name(ir_cr48_ap_mn51) = 'r_cr48_ap_mn51'
313 3 : reaction_Name(ir_mn51_pa_cr48) = 'r_mn51_pa_cr48'
314 3 : reaction_Name(ir_mn51_pg_fe52) = 'r_mn51_pg_fe52'
315 3 : reaction_Name(ir_fe52_gp_mn51) = 'r_fe52_gp_mn51'
316 3 : reaction_Name(ir_fe52_ap_co55) = 'r_fe52_ap_co55'
317 3 : reaction_Name(ir_co55_pa_fe52) = 'r_co55_pa_fe52'
318 3 : reaction_Name(ir_co55_pg_ni56) = 'r_co55_pg_ni56'
319 3 : reaction_Name(ir_ni56_gp_co55) = 'r_ni56_gp_co55'
320 3 : reaction_Name(ir_fe52_ng_fe53) = 'r_fe52_ng_fe53'
321 3 : reaction_Name(ir_fe53_gn_fe52) = 'r_fe53_gn_fe52'
322 3 : reaction_Name(ir_fe53_ng_fe54) = 'r_fe53_ng_fe54'
323 3 : reaction_Name(ir_fe54_gn_fe53) = 'r_fe54_gn_fe53'
324 3 : reaction_Name(ir_fe54_pg_co55) = 'r_fe54_pg_co55'
325 3 : reaction_Name(ir_co55_gp_fe54) = 'r_co55_gp_fe54'
326 3 : reaction_Name(ir_he3_ng_he4) = 'r_he3_ng_he4'
327 3 : reaction_Name(ir_he4_gn_he3) = 'r_he4_gn_he3'
328 3 : reaction_Name(ir_h1_ng_h2) = 'r_h1_ng_h2'
329 3 : reaction_Name(ir_h2_gn_h1) = 'r_h2_gn_h1'
330 3 : reaction_Name(ir_h2_pg_he3) = 'r_h2_pg_he3'
331 3 : reaction_Name(ir_he3_gp_h2) = 'r_he3_gp_h2'
332 3 : reaction_Name(ir_fe54_ng_fe55) = 'r_fe54_ng_fe55'
333 3 : reaction_Name(ir_fe55_gn_fe54) = 'r_fe55_gn_fe54'
334 3 : reaction_Name(ir_fe55_ng_fe56) = 'r_fe55_ng_fe56'
335 3 : reaction_Name(ir_fe56_gn_fe55) = 'r_fe56_gn_fe55'
336 3 : reaction_Name(ir_fe54_ap_co57) = 'r_fe54_ap_co57'
337 3 : reaction_Name(ir_co57_pa_fe54) = 'r_co57_pa_fe54'
338 3 : reaction_Name(ir_fe56_pg_co57) = 'r_fe56_pg_co57'
339 3 : reaction_Name(ir_co57_gp_fe56) = 'r_co57_gp_fe56'
340 3 : reaction_Name(ir_c12_c12_to_h1_na23) = 'r_c12_c12_to_h1_na23'
341 3 : reaction_Name(ir_he4_ne20_to_c12_c12) = 'r_he4_ne20_to_c12_c12'
342 3 : reaction_Name(ir_c12_c12_to_he4_ne20) = 'r_c12_c12_to_he4_ne20'
343 3 : reaction_Name(ir_he4_mg24_to_c12_o16) = 'r_he4_mg24_to_c12_o16'
344 :
345 : ! fxt for al26 isomers
346 3 : reaction_Name(ir_al26_1_to_al26_2) = 'r_al26-1_to_al26-2'
347 3 : reaction_Name(ir_al26_2_to_al26_1) = 'r_al26-2_to_al26-1'
348 :
349 : !reaction_Name(i) = ''
350 :
351 3 : cnt = 0
352 924 : do i=1,num_predefined_reactions
353 924 : if (len_trim(reaction_Name(i)) == 0) then
354 0 : write(*,*) 'missing name for reaction', i
355 0 : if (i > 1) write(*,*) 'following ' // trim(reaction_Name(i-1))
356 0 : write(*,*)
357 0 : cnt = cnt+1
358 : end if
359 : end do
360 :
361 3 : if (cnt > 0) call mesa_error(__FILE__,__LINE__,'set_reaction_names')
362 :
363 3 : end subroutine set_reaction_names
364 :
365 :
366 : end module rates_names
367 :
368 :
|
