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

Extended length of data that can be read in xml-fortran.

Browse source
This commit is contained in:
Paul Romano 2012-02-02 13:09:32 -05:00
parent a7528339f8
commit 725bb38e4a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -21,7 +21,7 @@ program xmlreader
logical :: endtag
character(len=80), dimension(1:2,1:20) :: attribs
integer :: noattribs
character(len=200), dimension(1:100) :: data
character(len=200), dimension(1:1000) :: data
integer :: nodata
integer :: i
integer :: j
@ -569,7 +569,7 @@ subroutine write_prolog
& ' logical :: endtag' , &
& ' character(len=80), dimension(1:2,1:20) :: attribs' , &
& ' integer :: noattribs' , &
& ' character(len=200), dimension(1:100) :: data' , &
& ' character(len=200), dimension(1:1000) :: data' , &
& ' integer :: nodata'
write( lusubs, '(a)' ) &