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 poor deallocation. :-( 6am coding == bugs.

Browse source
This commit is contained in:
Adam Nelson 2015-11-25 09:50:56 -05:00
parent 42d2673ab9
commit ca602e8b97
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/macroxs_header.F90
View file

@ -667,7 +667,11 @@ contains
if (allocated(this % total)) then
deallocate(this % total, this % absorption, &
this % nu_fission, this % fission)
this % nu_fission)
end if
if (allocated(this % fission)) then
deallocate(this % fission)
end if
if (allocated(this % k_fission)) then
@ -689,7 +693,11 @@ contains
if (allocated(this % total)) then
deallocate(this % total, this % absorption, &
this % nu_fission, this % fission)
this % nu_fission)
end if
if (allocated(this % fission)) then
deallocate(this % fission)
end if
if (allocated(this % k_fission)) then