From 076ee1c10b35100b2baee5622ad87c43ea6b4a5c Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Tue, 8 Jul 2014 17:33:59 -0400 Subject: [PATCH] Make sure Nuclide%energy is deallocated. --- src/ace_header.F90 | 24 ++++++++---------------- 1 file changed, 8 insertions(+), 16 deletions(-) diff --git a/src/ace_header.F90 b/src/ace_header.F90 index e5bf1bb3a4..27cf647155 100644 --- a/src/ace_header.F90 +++ b/src/ace_header.F90 @@ -337,26 +337,18 @@ module ace_header integer :: i ! Loop counter - if (allocated(this % grid_index)) & - deallocate(this % grid_index) + if (allocated(this % grid_index)) deallocate(this % grid_index) if (allocated(this % energy)) & - deallocate(this % total, this % elastic, this % fission, & - this % nu_fission, this % absorption) - if (allocated(this % heating)) & - deallocate(this % heating) + deallocate(this % energy, this % total, this % elastic, & + this % fission, this % nu_fission, this % absorption) + if (allocated(this % heating)) deallocate(this % heating) - if (allocated(this % index_fission)) & - deallocate(this % index_fission) + if (allocated(this % index_fission)) deallocate(this % index_fission) - if (allocated(this % nu_t_data)) & - deallocate(this % nu_t_data) - - if (allocated(this % nu_p_data)) & - deallocate(this % nu_p_data) - - if (allocated(this % nu_d_data)) & - deallocate(this % nu_d_data) + if (allocated(this % nu_t_data)) deallocate(this % nu_t_data) + if (allocated(this % nu_p_data)) deallocate(this % nu_p_data) + if (allocated(this % nu_d_data)) deallocate(this % nu_d_data) if (allocated(this % nu_d_precursor_data)) & deallocate(this % nu_d_precursor_data)