From 35f33c8eb151596937557a90014f6a65abd37a88 Mon Sep 17 00:00:00 2001 From: Bryan Herman Date: Wed, 1 Feb 2012 16:21:49 -0500 Subject: [PATCH] added path input back in for input files --- src/input_xml.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index e5775803e8..63c4c8fa6f 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -57,7 +57,7 @@ contains call write_message(5) ! Check if settings.xml exists - filename = "settings.xml" + filename = trim(path_input) // "settings.xml" inquire(FILE=filename, EXIST=file_exists) if (.not. file_exists) then message = "Settings XML file '" // trim(filename) // "' does not exist!" @@ -203,7 +203,7 @@ contains ! READ CELLS FROM GEOMETRY.XML ! Check if geometry.xml exists - filename = "geometry.xml" + filename = trim(path_input) // "geometry.xml" inquire(FILE=filename, EXIST=file_exists) if (.not. file_exists) then message = "Geometry XML file '" // trim(filename) // "' does not exist!" @@ -470,7 +470,7 @@ contains call write_message(5) ! Check is materials.xml exists - filename = "materials.xml" + filename = trim(path_input) // "materials.xml" inquire(FILE=filename, EXIST=file_exists) if (.not. file_exists) then message = "Material XML file '" // trim(filename) // "' does not exist!" @@ -628,7 +628,7 @@ contains type(StructuredMesh), pointer :: m => null() ! Check if tallies.xml exists - filename = "tallies.xml" + filename = trim(path_input) // "tallies.xml" inquire(FILE=filename, EXIST=file_exists) if (.not. file_exists) then ! Since a tallies.xml file is optional, no error is issued here