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

Updated xml parsing modules to change default error-reporting behavior.

Browse source
This commit is contained in:
Paul Romano 2011-09-11 14:38:06 -04:00
parent ca4f378aa0
commit eea8880b28
3 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/xml_geometry.f90
View file

@ -632,7 +632,7 @@ subroutine read_xml_file_geometry_t(fname, lurep, errout)
call init_xml_file_geometry_t
call xml_open( info, fname, .true. )
call xml_options( info, report_errors=.true., ignore_whitespace=.true.)
call xml_options( info, report_errors=.false., ignore_whitespace=.true.)
lurep_ = 0
if ( present(lurep) ) then
lurep_ = lurep
@ -650,7 +650,7 @@ subroutine read_xml_file_geometry_t(fname, lurep, errout)
call xml_close(info)
return
endif
strict_ = .true.
strict_ = .false.
error = .false.
do
call xml_get( info, tag, endtag, attribs, noattribs, data, nodata )

2
src/xml_materials.f90
View file

@ -735,7 +735,7 @@ subroutine read_xml_file_materials_t(fname, lurep, errout)
call init_xml_file_materials_t
call xml_open( info, fname, .true. )
call xml_options( info, report_errors=.true., ignore_whitespace=.true.)
call xml_options( info, report_errors=.false., ignore_whitespace=.true.)
lurep_ = 0
if ( present(lurep) ) then
lurep_ = lurep

2
src/xml_settings.f90
View file

@ -536,7 +536,7 @@ subroutine read_xml_file_settings_t(fname, lurep, errout)
call init_xml_file_settings_t
call xml_open( info, fname, .true. )
call xml_options( info, report_errors=.true., ignore_whitespace=.true.)
call xml_options( info, report_errors=.false., ignore_whitespace=.true.)
lurep_ = 0
if ( present(lurep) ) then
lurep_ = lurep