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

Merge pull request #356 from smharper/develop

Browse source 
Fix for output.F90 string length error
This commit is contained in:
Bryan Herman 2015-01-24 09:43:57 -05:00
commit 2e48762fbb
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/output.F90
View file

@ -216,7 +216,7 @@ contains
i_start = 0
do
if (length - i_start < line_wrap - 1) then
if (length - i_start < line_wrap + 1) then
! Remainder of message will fit on line
write(ou, fmt='(1X,A)') message(i_start+1:length)
exit