crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 21:55:41 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Read in AWR data for MGXS Library if available

Browse source
This commit is contained in:
Adam Nelson 2016-05-01 20:02:42 -04:00
parent 21ba926afe
commit b35d37c4fb
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/mgxs_header.F90
View file

@ -221,6 +221,11 @@ module mgxs_header
else
this % zaid = 0
end if
if (check_for_node(node_xsdata, "awr")) then
call get_node_value(node_xsdata, "awr", this % awr)
else
this % awr = -ONE
end if
if (check_for_node(node_xsdata, "scatt_type")) then
call get_node_value(node_xsdata, "scatt_type", temp_str)
temp_str = trim(to_lower(temp_str))