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

added path input back in for input files

Browse source
This commit is contained in:
Bryan Herman 2012-02-01 16:21:49 -05:00
parent 5dea2222e9
commit 35f33c8eb1
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/input_xml.F90
View file

@ -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