From 98349319e845509ced18c4d15ec1a3679aab254a Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sat, 25 Apr 2020 15:50:23 +0200 Subject: [PATCH] Cleanup DESC%FREE() --- base/modules/desc/psb_desc_mod.F90 | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/base/modules/desc/psb_desc_mod.F90 b/base/modules/desc/psb_desc_mod.F90 index 43ae5852..6378c699 100644 --- a/base/modules/desc/psb_desc_mod.F90 +++ b/base/modules/desc/psb_desc_mod.F90 @@ -934,6 +934,9 @@ contains if (allocated(desc%halo_index)) & & deallocate(desc%halo_index,stat=info) + if (allocated(desc%ext_index)) & + & deallocate(desc%ext_index,stat=info) + if (allocated(desc%bnd_elem)) & & deallocate(desc%bnd_elem,stat=info) @@ -942,11 +945,13 @@ contains if (allocated(desc%ovrlap_elem)) & & deallocate(desc%ovrlap_elem,stat=info) + if (allocated(desc%ovr_mst_idx)) & & deallocate(desc%ovr_mst_idx,stat=info) if (allocated(desc%lprm)) & & deallocate(desc%lprm,stat=info) + if (allocated(desc%idx_space)) & & deallocate(desc%idx_space,stat=info)