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

Take out obsolete declarations

Browse Source
implement-ainv
Salvatore Filippone 4 years ago
parent dab8aa9fa1
commit 534ca2043d
12 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File

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

@ -48,7 +48,6 @@ subroutine amg_c_ainv_solver_descr(sv,info,iout,coarse)
! Local variables ! Local variables
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='amg_c_ainv_solver_descr' character(len=20), parameter :: name='amg_c_ainv_solver_descr'
integer(psb_ipk_) :: iout_ integer(psb_ipk_) :: iout_

2
amgprec/impl/solver/amg_c_invk_solver_descr.f90
Unescape Escape View File

@ -48,8 +48,6 @@ subroutine amg_c_invk_solver_descr(sv,info,iout,coarse)
! Local variables ! Local variables
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: me, np
type(psb_ctxt_type) :: ctxt
character(len=20), parameter :: name='amg_c_invk_solver_descr' character(len=20), parameter :: name='amg_c_invk_solver_descr'
integer(psb_ipk_) :: iout_ integer(psb_ipk_) :: iout_

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

@ -48,7 +48,6 @@ subroutine amg_c_invt_solver_descr(sv,info,iout,coarse)
! Local variables ! Local variables
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='amg_c_invt_solver_descr' character(len=20), parameter :: name='amg_c_invt_solver_descr'
integer(psb_ipk_) :: iout_ integer(psb_ipk_) :: iout_

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

@ -48,7 +48,6 @@ subroutine amg_d_ainv_solver_descr(sv,info,iout,coarse)
! Local variables ! Local variables
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='amg_d_ainv_solver_descr' character(len=20), parameter :: name='amg_d_ainv_solver_descr'
integer(psb_ipk_) :: iout_ integer(psb_ipk_) :: iout_

2
amgprec/impl/solver/amg_d_invk_solver_descr.f90
Unescape Escape View File

@ -48,8 +48,6 @@ subroutine amg_d_invk_solver_descr(sv,info,iout,coarse)
! Local variables ! Local variables
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: me, np
type(psb_ctxt_type) :: ctxt
character(len=20), parameter :: name='amg_d_invk_solver_descr' character(len=20), parameter :: name='amg_d_invk_solver_descr'
integer(psb_ipk_) :: iout_ integer(psb_ipk_) :: iout_

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

@ -48,7 +48,6 @@ subroutine amg_d_invt_solver_descr(sv,info,iout,coarse)
! Local variables ! Local variables
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='amg_d_invt_solver_descr' character(len=20), parameter :: name='amg_d_invt_solver_descr'
integer(psb_ipk_) :: iout_ integer(psb_ipk_) :: iout_

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

@ -48,7 +48,6 @@ subroutine amg_s_ainv_solver_descr(sv,info,iout,coarse)
! Local variables ! Local variables
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='amg_s_ainv_solver_descr' character(len=20), parameter :: name='amg_s_ainv_solver_descr'
integer(psb_ipk_) :: iout_ integer(psb_ipk_) :: iout_

2
amgprec/impl/solver/amg_s_invk_solver_descr.f90
Unescape Escape View File

@ -48,8 +48,6 @@ subroutine amg_s_invk_solver_descr(sv,info,iout,coarse)
! Local variables ! Local variables
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: me, np
type(psb_ctxt_type) :: ctxt
character(len=20), parameter :: name='amg_s_invk_solver_descr' character(len=20), parameter :: name='amg_s_invk_solver_descr'
integer(psb_ipk_) :: iout_ integer(psb_ipk_) :: iout_

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

@ -48,7 +48,6 @@ subroutine amg_s_invt_solver_descr(sv,info,iout,coarse)
! Local variables ! Local variables
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='amg_s_invt_solver_descr' character(len=20), parameter :: name='amg_s_invt_solver_descr'
integer(psb_ipk_) :: iout_ integer(psb_ipk_) :: iout_

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

@ -48,7 +48,6 @@ subroutine amg_z_ainv_solver_descr(sv,info,iout,coarse)
! Local variables ! Local variables
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='amg_z_ainv_solver_descr' character(len=20), parameter :: name='amg_z_ainv_solver_descr'
integer(psb_ipk_) :: iout_ integer(psb_ipk_) :: iout_

2
amgprec/impl/solver/amg_z_invk_solver_descr.f90
Unescape Escape View File

@ -48,8 +48,6 @@ subroutine amg_z_invk_solver_descr(sv,info,iout,coarse)
! Local variables ! Local variables
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: me, np
type(psb_ctxt_type) :: ctxt
character(len=20), parameter :: name='amg_z_invk_solver_descr' character(len=20), parameter :: name='amg_z_invk_solver_descr'
integer(psb_ipk_) :: iout_ integer(psb_ipk_) :: iout_

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

@ -48,7 +48,6 @@ subroutine amg_z_invt_solver_descr(sv,info,iout,coarse)
! Local variables ! Local variables
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='amg_z_invt_solver_descr' character(len=20), parameter :: name='amg_z_invt_solver_descr'
integer(psb_ipk_) :: iout_ integer(psb_ipk_) :: iout_

Write Preview
Loading…
Cancel
Save