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

Fixed output.F90 typo

Browse source
This commit is contained in:
Sterling Harper 2015-01-23 23:58:42 -05:00
parent 291b45a646
commit c74ee75a38
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