From 21b4ce0a3649955e19486c8beb4e6ad59aa646fc Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Wed, 23 Apr 2014 20:55:26 -0400 Subject: [PATCH] Fix natural element expansion for Zn to match IUPAC 2009. --- src/input_xml.F90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index 9dbc37c0a..efee03614 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -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')