From ca602e8b97c1a34f92b86b3fc4c9dd50bc2fe079 Mon Sep 17 00:00:00 2001 From: Adam Nelson Date: Wed, 25 Nov 2015 09:50:56 -0500 Subject: [PATCH] Fixed poor deallocation. :-( 6am coding == bugs. --- src/macroxs_header.F90 | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/src/macroxs_header.F90 b/src/macroxs_header.F90 index 95b61f695d..63e6fecaed 100644 --- a/src/macroxs_header.F90 +++ b/src/macroxs_header.F90 @@ -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