From 8a14d600b08b7046409fc332f03a2803bbb49a55 Mon Sep 17 00:00:00 2001 From: Adam Nelson Date: Fri, 12 Feb 2016 06:23:23 -0500 Subject: [PATCH] fixed check_source finds --- src/input_xml.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index 50e8ca30dc..eca7e8ca15 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -2051,8 +2051,8 @@ contains ! Check to ensure material has at least one nuclide if (.not. check_for_node(node_mat, "nuclide") .and. & - .not. check_for_node(node_mat, "element") .and. & - .not. check_for_node(node_mat, "macroscopic")) then + .not. check_for_node(node_mat, "element") .and. & + .not. check_for_node(node_mat, "macroscopic")) then call fatal_error("No macroscopic data, nuclides or natural elements & &specified on material " // trim(to_str(mat % id))) end if