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

added compatibility for comments without whitespace around content

Browse source
This commit is contained in:
nhorelik 2013-04-08 12:46:17 -04:00
parent 8ead123486
commit ec822e64f9
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/xml-fortran/xmlparse.f90
View file

@ -371,6 +371,7 @@ subroutine xml_get( info, tag, endtag, attribs, no_attribs, &
integer :: kspace
integer :: kend
integer :: kcend
integer :: keq
integer :: kfirst
integer :: ksecond
@ -405,6 +406,7 @@ subroutine xml_get( info, tag, endtag, attribs, no_attribs, &
close_bracket = .false.
kspace = index( info%line, ' ' )
kend = index( info%line, '>' )
kcend = index( info%line, '-->' )
do while ( kend <= 0 )
read( info%lun, '(a)', iostat = ierr ) nextline
call xml_remove_tabs_(nextline)
@ -423,6 +425,8 @@ subroutine xml_get( info, tag, endtag, attribs, no_attribs, &
enddo
if ( kend > kspace ) then
kend = kspace
else if (info%line(1:4) == '<!--' .and. kend > kcend) then
kend = kcend-1
else
close_bracket = .true.
endif