From 3827109f9dba6e6755ee0c6c4c979c9c7f469bc1 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 2 Jun 2016 15:29:15 +0000 Subject: [PATCH] *** empty log message *** --- base/modules/psb_desc_mod.F90 | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/base/modules/psb_desc_mod.F90 b/base/modules/psb_desc_mod.F90 index df0639ca..31915f00 100644 --- a/base/modules/psb_desc_mod.F90 +++ b/base/modules/psb_desc_mod.F90 @@ -301,15 +301,15 @@ contains integer(psb_long_int_k_) :: val val = 0 - if (allocated(desc%halo_index)) val = val + psb_sizeof_int*size(desc%halo_index) - if (allocated(desc%ext_index)) val = val + psb_sizeof_int*size(desc%ext_index) - if (allocated(desc%bnd_elem)) val = val + psb_sizeof_int*size(desc%bnd_elem) - if (allocated(desc%ovrlap_index)) val = val + psb_sizeof_int*size(desc%ovrlap_index) - if (allocated(desc%ovrlap_elem)) val = val + psb_sizeof_int*size(desc%ovrlap_elem) - if (allocated(desc%ovr_mst_idx)) val = val + psb_sizeof_int*size(desc%ovr_mst_idx) - if (allocated(desc%lprm)) val = val + psb_sizeof_int*size(desc%lprm) - if (allocated(desc%idx_space)) val = val + psb_sizeof_int*size(desc%idx_space) - if (allocated(desc%indxmap)) val = val + desc%indxmap%sizeof() + val = val + psb_sizeof_int*psb_size(desc%halo_index) + val = val + psb_sizeof_int*psb_size(desc%ext_index) + val = val + psb_sizeof_int*psb_size(desc%bnd_elem) + val = val + psb_sizeof_int*psb_size(desc%ovrlap_index) + val = val + psb_sizeof_int*psb_size(desc%ovrlap_elem) + val = val + psb_sizeof_int*psb_size(desc%ovr_mst_idx) + val = val + psb_sizeof_int*psb_size(desc%lprm) + val = val + psb_sizeof_int*psb_size(desc%idx_space) + if (allocated(desc%indxmap)) val = val + desc%indxmap%sizeof() val = val + desc%v_halo_index%sizeof() val = val + desc%v_ext_index%sizeof() val = val + desc%v_ovrlap_index%sizeof()