@ -39,7 +39,6 @@ subroutine psb_cd_set_ovl_bld(desc,info)
if ( info == psb_success_ ) then
if ( info == psb_success_ ) then
if ( desc % indxmap % row_extendable ( ) ) then
if ( desc % indxmap % row_extendable ( ) ) then
call desc % indxmap % set_state ( psb_desc_ovl_bld_ )
call desc % indxmap % set_state ( psb_desc_ovl_bld_ )
! ! $ desc % matrix_data ( psb_dec_type_ ) = psb_desc_ovl_bld_
else
else
info = psb_err_invalid_cd_state_
info = psb_err_invalid_cd_state_
end if
end if
@ -70,10 +69,8 @@ subroutine psb_cd_set_bld(desc,info)
call psb_info ( ictxt , me , np )
call psb_info ( ictxt , me , np )
if ( debug ) write ( psb_err_unit , * ) me , 'Entered CDSETBLD'
if ( debug ) write ( psb_err_unit , * ) me , 'Entered CDSETBLD'
if ( psb_is_asb_desc ( desc ) ) then
if ( desc % is_asb ( ) ) call psb_cd_reinit ( desc , info )
end if
! ! $ desc % matrix_data ( psb_dec_type_ ) = psb_desc_bld_
call desc % indxmap % set_state ( psb_desc_bld_ )
call desc % indxmap % set_state ( psb_desc_bld_ )
if ( debug ) write ( psb_err_unit , * ) me , 'SET_BLD: done'
if ( debug ) write ( psb_err_unit , * ) me , 'SET_BLD: done'