Take out obsolete declarations

4 years ago · 534ca2043d
parent dab8aa9fa1
commit 534ca2043d
12 changed files with 0 additions and 16 deletions
--- a/amgprec/impl/solver/amg_c_ainv_solver_descr.f90
+++ b/amgprec/impl/solver/amg_c_ainv_solver_descr.f90
@ -48,7 +48,6 @@ subroutine amg_c_ainv_solver_descr(sv,info,iout,coarse)

  ! Local variables
  integer(psb_ipk_)      :: err_act
-  integer(psb_ipk_)      :: ictxt, me, np
  character(len=20), parameter :: name='amg_c_ainv_solver_descr'
  integer(psb_ipk_)      :: iout_

--- a/amgprec/impl/solver/amg_c_invk_solver_descr.f90
+++ b/amgprec/impl/solver/amg_c_invk_solver_descr.f90
@ -48,8 +48,6 @@ subroutine amg_c_invk_solver_descr(sv,info,iout,coarse)

  ! Local variables
  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'
  integer(psb_ipk_) :: iout_

--- a/amgprec/impl/solver/amg_c_invt_solver_descr.f90
+++ b/amgprec/impl/solver/amg_c_invt_solver_descr.f90
@ -48,7 +48,6 @@ subroutine amg_c_invt_solver_descr(sv,info,iout,coarse)

  ! Local variables
  integer(psb_ipk_) :: err_act
-  integer(psb_ipk_) :: ictxt, me, np
  character(len=20), parameter :: name='amg_c_invt_solver_descr'
  integer(psb_ipk_) :: iout_

--- a/amgprec/impl/solver/amg_d_ainv_solver_descr.f90
+++ b/amgprec/impl/solver/amg_d_ainv_solver_descr.f90
@ -48,7 +48,6 @@ subroutine amg_d_ainv_solver_descr(sv,info,iout,coarse)

  ! Local variables
  integer(psb_ipk_)      :: err_act
-  integer(psb_ipk_)      :: ictxt, me, np
  character(len=20), parameter :: name='amg_d_ainv_solver_descr'
  integer(psb_ipk_)      :: iout_

--- a/amgprec/impl/solver/amg_d_invk_solver_descr.f90
+++ b/amgprec/impl/solver/amg_d_invk_solver_descr.f90
@ -48,8 +48,6 @@ subroutine amg_d_invk_solver_descr(sv,info,iout,coarse)

  ! Local variables
  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'
  integer(psb_ipk_) :: iout_

--- a/amgprec/impl/solver/amg_d_invt_solver_descr.f90
+++ b/amgprec/impl/solver/amg_d_invt_solver_descr.f90
@ -48,7 +48,6 @@ subroutine amg_d_invt_solver_descr(sv,info,iout,coarse)

  ! Local variables
  integer(psb_ipk_) :: err_act
-  integer(psb_ipk_) :: ictxt, me, np
  character(len=20), parameter :: name='amg_d_invt_solver_descr'
  integer(psb_ipk_) :: iout_

--- a/amgprec/impl/solver/amg_s_ainv_solver_descr.f90
+++ b/amgprec/impl/solver/amg_s_ainv_solver_descr.f90
@ -48,7 +48,6 @@ subroutine amg_s_ainv_solver_descr(sv,info,iout,coarse)

  ! Local variables
  integer(psb_ipk_)      :: err_act
-  integer(psb_ipk_)      :: ictxt, me, np
  character(len=20), parameter :: name='amg_s_ainv_solver_descr'
  integer(psb_ipk_)      :: iout_

--- a/amgprec/impl/solver/amg_s_invk_solver_descr.f90
+++ b/amgprec/impl/solver/amg_s_invk_solver_descr.f90
@ -48,8 +48,6 @@ subroutine amg_s_invk_solver_descr(sv,info,iout,coarse)

  ! Local variables
  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'
  integer(psb_ipk_) :: iout_

--- a/amgprec/impl/solver/amg_s_invt_solver_descr.f90
+++ b/amgprec/impl/solver/amg_s_invt_solver_descr.f90
@ -48,7 +48,6 @@ subroutine amg_s_invt_solver_descr(sv,info,iout,coarse)

  ! Local variables
  integer(psb_ipk_) :: err_act
-  integer(psb_ipk_) :: ictxt, me, np
  character(len=20), parameter :: name='amg_s_invt_solver_descr'
  integer(psb_ipk_) :: iout_

--- a/amgprec/impl/solver/amg_z_ainv_solver_descr.f90
+++ b/amgprec/impl/solver/amg_z_ainv_solver_descr.f90
@ -48,7 +48,6 @@ subroutine amg_z_ainv_solver_descr(sv,info,iout,coarse)

  ! Local variables
  integer(psb_ipk_)      :: err_act
-  integer(psb_ipk_)      :: ictxt, me, np
  character(len=20), parameter :: name='amg_z_ainv_solver_descr'
  integer(psb_ipk_)      :: iout_

--- a/amgprec/impl/solver/amg_z_invk_solver_descr.f90
+++ b/amgprec/impl/solver/amg_z_invk_solver_descr.f90
@ -48,8 +48,6 @@ subroutine amg_z_invk_solver_descr(sv,info,iout,coarse)

  ! Local variables
  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'
  integer(psb_ipk_) :: iout_

--- a/amgprec/impl/solver/amg_z_invt_solver_descr.f90
+++ b/amgprec/impl/solver/amg_z_invt_solver_descr.f90
@ -48,7 +48,6 @@ subroutine amg_z_invt_solver_descr(sv,info,iout,coarse)

  ! Local variables
  integer(psb_ipk_) :: err_act
-  integer(psb_ipk_) :: ictxt, me, np
  character(len=20), parameter :: name='amg_z_invt_solver_descr'
  integer(psb_ipk_) :: iout_