fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Unused lines in ilu_solver_bld

Browse Source
pull/4/merge
sfilippone 3 months ago
parent 2e43f55455
commit 5a83c63810
4 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File

1
amgprec/impl/solver/amg_c_ilu_solver_bld.f90
Unescape Escape View File

@ -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 class(psb_i_base_vect_type), intent(in), optional :: imold
! Local variables ! Local variables
integer(psb_ipk_) :: n_row,n_col, nrow_a, nztota, psb_fctype 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 type(psb_ctxt_type) :: ctxt
integer(psb_ipk_) :: np, me, i, err_act, debug_unit, debug_level integer(psb_ipk_) :: np, me, i, err_act, debug_unit, debug_level
character(len=20) :: name='c_ilu_solver_bld', ch_err character(len=20) :: name='c_ilu_solver_bld', ch_err

1
amgprec/impl/solver/amg_d_ilu_solver_bld.f90
Unescape Escape View File

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

1
amgprec/impl/solver/amg_s_ilu_solver_bld.f90
Unescape Escape View File

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

1
amgprec/impl/solver/amg_z_ilu_solver_bld.f90
Unescape Escape View File

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

Write Preview
Loading…
Cancel
Save