*** empty log message ***

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