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