psblas3:

psb_hash_map_mod.f90 Fixed uninitialized info
13 years ago · 4f58c7f370
parent 9cafbc190c
commit 4f58c7f370
1 changed files with 2 additions and 1 deletions
--- a/base/modules/psb_hash_map_mod.f90
+++ b/base/modules/psb_hash_map_mod.f90
@ -1317,6 +1317,7 @@ contains
    type(psb_hash_map), intent(out) :: outmap
    integer(psb_ipk_) :: info

+    info = psb_success_
    outmap%psb_indx_map = idxmap%psb_indx_map
    outmap%hashvsize    = idxmap%hashvsize
    outmap%hashvmask    = idxmap%hashvmask