psblas:

base/tools/psb_cd_reinit.f90 cd_reinit was calling set_bld, creating a recursive chain!.
10 years ago · c5735d6018
parent 31d74c235f
commit c5735d6018
1 changed files with 1 additions and 1 deletions
--- 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'