*** empty log message ***

base/tools/psb_cd_reinit.f90

@@ -60,7 +60,7 @@ 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'
-
+  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.)        
@@ -70,6 +70,7 @@ Subroutine psb_cd_reinit(desc,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'