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

Fixed trace on gfortran builds.

Browse source
This commit is contained in:
Paul Romano 2011-12-05 22:56:27 -05:00
parent 01c51c130d
commit 992abf62b8
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/input_xml.f90
View file

@ -137,7 +137,7 @@ contains
end if
! Particle trace
if (size(trace_) > 0) then
if (associated(trace_)) then
trace_cycle = trace_(1)
trace_particle = trace_(2)
end if