@ -53,7 +53,6 @@ subroutine amg_c_ilu_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
class(psb_i_base_vect_type), intent(in), optional :: imold
! Local variables
integer(psb_ipk_) :: n_row,n_col, nrow_a, nztota, psb_fctype
!!$ complex(psb_spk_), pointer :: ww(:), aux(:), tx(:),ty(:)
type(psb_ctxt_type) :: ctxt
integer(psb_ipk_) :: np, me, i, err_act, debug_unit, debug_level
character(len=20) :: name='c_ilu_solver_bld', ch_err
@ -53,7 +53,6 @@ subroutine amg_d_ilu_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
!!$ real(psb_dpk_), pointer :: ww(:), aux(:), tx(:),ty(:)
character(len=20) :: name='d_ilu_solver_bld', ch_err
@ -53,7 +53,6 @@ subroutine amg_s_ilu_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
!!$ real(psb_spk_), pointer :: ww(:), aux(:), tx(:),ty(:)
character(len=20) :: name='s_ilu_solver_bld', ch_err
@ -53,7 +53,6 @@ subroutine amg_z_ilu_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
!!$ complex(psb_dpk_), pointer :: ww(:), aux(:), tx(:),ty(:)
character(len=20) :: name='z_ilu_solver_bld', ch_err