From c5735d6018fb6c778f10caff2427258c58b7759b Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 24 Jul 2015 14:11:17 +0000
Subject: [PATCH] psblas:  base/tools/psb_cd_reinit.f90

cd_reinit was calling set_bld, creating a recursive chain!.
---
 base/tools/psb_cd_reinit.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/base/tools/psb_cd_reinit.f90 b/base/tools/psb_cd_reinit.f90
index f9c0f107..1d002f33 100644
--- a/base/tools/psb_cd_reinit.f90
+++ b/base/tools/psb_cd_reinit.f90
@@ -69,7 +69,7 @@ Subroutine psb_cd_reinit(desc,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)
+!  call psb_cd_set_bld(desc,info)
 
   if (debug_level >= psb_debug_outer_) &
        & write(debug_unit,*) me,' ',trim(name),': end'