mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-20 12:52:14 +00:00
psblas:
base/tools/psb_cd_reinit.f90 cd_reinit was calling set_bld, creating a recursive chain!.
This commit is contained in:
@@ -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'
|
||||
|
||||
Reference in New Issue
Block a user