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()