From bb96330459c5d67297ea36cd8819cf78a91db410 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 21 Feb 2018 16:19:09 +0000 Subject: [PATCH] Unstaged initial long ints. Need sortin routines & more. --- base/modules/desc/psb_hash_map_mod.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/base/modules/desc/psb_hash_map_mod.f90 b/base/modules/desc/psb_hash_map_mod.f90 index 20472808..ea33a503 100644 --- a/base/modules/desc/psb_hash_map_mod.f90 +++ b/base/modules/desc/psb_hash_map_mod.f90 @@ -134,6 +134,8 @@ contains & val = val + size(idxmap%hashv)*psb_sizeof_int if (allocated(idxmap%glb_lc)) & & val = val + size(idxmap%glb_lc)*psb_sizeof_int + if (allocated(idxmap%loc_to_glob)) & + & val = val + size(idxmap%loc_to_glob)*psb_sizeof_int val = val + psb_sizeof(idxmap%hash) end function hash_sizeof