From 9db22eb26faea190a45a142d90c93dbb638c7b3b Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 24 Jul 2015 14:12:07 +0000 Subject: [PATCH] *** empty log message *** --- base/tools/psb_cd_reinit.f90 | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/base/tools/psb_cd_reinit.f90 b/base/tools/psb_cd_reinit.f90 index 1d002f33..38660793 100644 --- a/base/tools/psb_cd_reinit.f90 +++ b/base/tools/psb_cd_reinit.f90 @@ -60,16 +60,17 @@ Subroutine psb_cd_reinit(desc,info) Call psb_info(ictxt, me, np) if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),': start' - - call psb_cd_get_recv_idx(tmp_ovr,desc,psb_comm_ovr_,info,toglob=.true.) - call psb_cd_get_recv_idx(tmp_halo,desc,psb_comm_halo_,info,toglob=.false.) - call psb_cd_get_recv_idx(tmp_ext,desc,psb_comm_ext_,info,toglob=.false.) - - call psb_move_alloc(tmp_ovr,desc%ovrlap_index,info) - call psb_move_alloc(tmp_halo,desc%halo_index,info) - call psb_move_alloc(tmp_ext,desc%ext_index,info) - call desc%indxmap%reinit(info) -! call psb_cd_set_bld(desc,info) + if (desc%is_asb()) then + call psb_cd_get_recv_idx(tmp_ovr,desc,psb_comm_ovr_,info,toglob=.true.) + call psb_cd_get_recv_idx(tmp_halo,desc,psb_comm_halo_,info,toglob=.false.) + call psb_cd_get_recv_idx(tmp_ext,desc,psb_comm_ext_,info,toglob=.false.) + + call psb_move_alloc(tmp_ovr,desc%ovrlap_index,info) + call psb_move_alloc(tmp_halo,desc%halo_index,info) + call psb_move_alloc(tmp_ext,desc%ext_index,info) + call desc%indxmap%reinit(info) + ! call psb_cd_set_bld(desc,info) + end if if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),': end'