crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 05:35:49 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing fortran style.

Browse source
This commit is contained in:
Patrick Shriwise 2018-12-10 10:36:25 -06:00
parent fd733cd997
commit 1642b9fb15
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/input_xml.F90
View file

@ -522,7 +522,7 @@ contains
#ifdef DAGMC
if (dagmc) then
doc % ptr = read_uwuw_materials()
doc % ptr = read_uwuw_materials()
end if
if (.not. c_associated(doc % ptr)) then
@ -534,7 +534,7 @@ contains
if (.not. file_exists) then
call fatal_error("Material XML file '" // trim(filename) // "' does not &
&exist!")
end if
end if
! Parse materials.xml file
call doc % load_file(filename)