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

Got rid of all but 16 leaked bytes for the basic model.

Browse source
This commit is contained in:
Adam Nelson 2013-04-03 16:01:22 -04:00
parent e8e30148a8
commit bec1e1bb1b
7 changed files with 4087 additions and 647 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/ace_header.F90
View file

@ -264,9 +264,11 @@ module ace_header
if (allocated(this % data)) &
deallocate(this % data)
if (associated(this % next)) &
if (associated(this % next)) then
! recursively clear this item
call this % next % clear()
nullify(this % next)
end if
end subroutine DistEnergy_clear
@ -281,8 +283,10 @@ module ace_header
if (allocated(this % sigma)) &
deallocate(this % sigma)
if (associated(this % edist)) &
if (associated(this % edist)) then
call this % edist % clear()
deallocate(this % edist)
end if
call this % adist % clear()