diff --git a/base/modules/psb_hash_map_mod.f90 b/base/modules/psb_hash_map_mod.f90 index fbcbe71d..8befac3e 100644 --- a/base/modules/psb_hash_map_mod.f90 +++ b/base/modules/psb_hash_map_mod.f90 @@ -1465,7 +1465,7 @@ contains integer(psb_ipk_), allocatable :: idx(:),lidx(:) character(len=20) :: name='hash_reinit' logical, parameter :: debug=.false. - write(0,*) 'Going through hash_reinit' + info = psb_success_ call psb_get_erraction(err_act) ictxt = idxmap%get_ctxt()