From e8bc1e932ba20939bd5cb95584df16bb7463c32c Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Fri, 23 Jan 2015 09:13:34 -0500 Subject: [PATCH] Make sure energy-dependent multiplicities are deallocated. This memory leak was introduced by #348. --- src/ace_header.F90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/ace_header.F90 b/src/ace_header.F90 index f1cdd057f0..1f34a2311b 100644 --- a/src/ace_header.F90 +++ b/src/ace_header.F90 @@ -336,8 +336,9 @@ module ace_header class(Reaction), intent(inout) :: this ! The Reaction object to clear - if (allocated(this % sigma)) & - deallocate(this % sigma) + if (allocated(this % sigma)) deallocate(this % sigma) + + if (associated(this % multiplicity_E)) deallocate(this % multiplicity_E) if (associated(this % edist)) then call this % edist % clear()