Unstaged initial long ints. Need sortin routines & more.

8 years ago · bb96330459
parent eb59ed592b
commit bb96330459
1 changed files with 2 additions and 0 deletions
--- 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