crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 06:05:58 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

removed other alias variables in sab reading

Browse source
This commit is contained in:
Bryan Herman 2013-08-23 13:28:40 -04:00
parent e688cfa8ee
commit bcf2cee9ca
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/input_xml.F90
View file

@ -1544,7 +1544,6 @@ contains
end if
call get_node_value(node_sab, "name", name)
call get_node_value(node_sab, "xs", temp_str)
name = trim(name) // "." // trim(temp_str)
mat % sab_names(j) = name
@ -1559,14 +1558,12 @@ contains
! listing
index_list = xs_listing_dict % get_key(name)
name = xs_listings(index_list) % name
alias = xs_listings(index_list) % alias
! If this S(a,b) table hasn't been encountered yet, we need to add its
! name and alias to the sab_dict
if (.not. sab_dict % has_key(name)) then
index_sab = index_sab + 1
index_sab = index_sab + 1
mat % i_sab_tables(j) = index_sab
call sab_dict % add_key(name, index_sab)
else
mat % i_sab_tables(j) = sab_dict % get_key(name)