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

Fixed error in output module that caused failed compilation with gfortran.

Browse source
This commit is contained in:
Paul Romano 2011-09-25 19:30:08 -04:00
parent 9138678fd5
commit 6e0347a82f
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/output.f90
View file

@ -536,7 +536,7 @@ contains
write(ou, *) ' Surface Bins:' // trim(string)
end if
if (t % n_bins(T_UNIVERSE)) then
if (t % n_bins(T_UNIVERSE) > 0) then
string = ""
do i = 1, t % n_bins(T_UNIVERSE)
uid = t % universe_bins(i) % scalar
@ -546,7 +546,7 @@ contains
write(ou, *) ' Material Bins:' // trim(string)
end if
if (t % n_bins(T_MATERIAL)) then
if (t % n_bins(T_MATERIAL) > 0) then
string = ""
do i = 1, t % n_bins(T_MATERIAL)
uid = t % material_bins(i) % scalar