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

Fix natural element expansion for Zn to match IUPAC 2009.

Browse source
This commit is contained in:
Paul Romano 2014-04-23 20:55:26 -04:00
parent 6b54d88885
commit 21b4ce0a36
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/input_xml.F90
View file

@ -3339,15 +3339,15 @@ contains
call list_density % append(density)
else
call list_names % append('30064.' // xs)
call list_density % append(density * 0.4863_8)
call list_density % append(density * 0.4917_8)
call list_names % append('30066.' // xs)
call list_density % append(density * 0.2790_8)
call list_density % append(density * 0.2773_8)
call list_names % append('30067.' // xs)
call list_density % append(density * 0.0410_8)
call list_density % append(density * 0.0404_8)
call list_names % append('30068.' // xs)
call list_density % append(density * 0.1875_8)
call list_density % append(density * 0.1845_8)
call list_names % append('30070.' // xs)
call list_density % append(density * 0.0062_8)
call list_density % append(density * 0.0061_8)
end if
case ('ga')