From b32053d8aa16ceb12ab16d1ae8e08810f01fa32a Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 19 Nov 2020 16:02:24 +0100 Subject: [PATCH] Fix base_init_null for use with remap-coarse --- base/modules/desc/psb_indx_map_mod.f90 | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) diff --git a/base/modules/desc/psb_indx_map_mod.f90 b/base/modules/desc/psb_indx_map_mod.f90 index d18458f0..9e693ec3 100644 --- a/base/modules/desc/psb_indx_map_mod.f90 +++ b/base/modules/desc/psb_indx_map_mod.f90 @@ -224,6 +224,7 @@ module psb_indx_map_mod generic, public :: qry_halo_owner => qry_halo_owner_s, qry_halo_owner_v procedure, pass(idxmap) :: fnd_owner => psi_indx_map_fnd_owner + procedure, pass(idxmap) :: init_null => base_init_null procedure, pass(idxmap) :: init_vl => base_init_vl generic, public :: init => init_vl @@ -242,7 +243,7 @@ module psb_indx_map_mod & base_ll2gs1, base_ll2gs2, base_ll2gv1, base_ll2gv2,& & base_lg2ls1, base_lg2ls2, base_lg2lv1, base_lg2lv2,& & base_lg2ls1_ins, base_lg2ls2_ins, base_lg2lv1_ins,& - & base_lg2lv2_ins, base_init_vl, base_is_null,& + & base_lg2lv2_ins, base_init_vl, base_is_null, base_init_null, & & base_row_extendable, base_clone, base_cpy, base_reinit, & & base_set_halo_owner, base_get_halo_owner, & & base_qry_halo_owner_s, base_qry_halo_owner_v,& @@ -1345,6 +1346,18 @@ contains end subroutine base_set_null + subroutine base_init_null(idxmap,ctxt,info) + class(psb_indx_map), intent(inout) :: idxmap + type(psb_ctxt_type), intent(in) :: ctxt + integer(psb_lpk_), intent(in) :: vl(:) + integer(psb_ipk_), intent(out) :: info + + call idxmap%set_null() + idxmap%ctxt = ctxt + info = 0 + return + end subroutine base_init_null + subroutine base_init_vl(idxmap,ctxt,vl,info) use psb_penv_mod use psb_error_mod @@ -1414,7 +1427,7 @@ contains call psb_get_erraction(err_act) outmap%state = idxmap%state - outmap%ctxt = idxmap%ctxt + outmap%ctxt = idxmap%ctxt outmap%mpic = idxmap%mpic outmap%global_rows = idxmap%global_rows outmap%global_cols = idxmap%global_cols