From 534ca2043d5b53e101c08f0ba67202ae9e9835f2 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 3 Dec 2020 10:16:05 +0100 Subject: [PATCH] Take out obsolete declarations --- amgprec/impl/solver/amg_c_ainv_solver_descr.f90 | 1 - amgprec/impl/solver/amg_c_invk_solver_descr.f90 | 2 -- amgprec/impl/solver/amg_c_invt_solver_descr.f90 | 1 - amgprec/impl/solver/amg_d_ainv_solver_descr.f90 | 1 - amgprec/impl/solver/amg_d_invk_solver_descr.f90 | 2 -- amgprec/impl/solver/amg_d_invt_solver_descr.f90 | 1 - amgprec/impl/solver/amg_s_ainv_solver_descr.f90 | 1 - amgprec/impl/solver/amg_s_invk_solver_descr.f90 | 2 -- amgprec/impl/solver/amg_s_invt_solver_descr.f90 | 1 - amgprec/impl/solver/amg_z_ainv_solver_descr.f90 | 1 - amgprec/impl/solver/amg_z_invk_solver_descr.f90 | 2 -- amgprec/impl/solver/amg_z_invt_solver_descr.f90 | 1 - 12 files changed, 16 deletions(-) diff --git a/amgprec/impl/solver/amg_c_ainv_solver_descr.f90 b/amgprec/impl/solver/amg_c_ainv_solver_descr.f90 index a3ec7c30..83c9f6cf 100644 --- 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_ diff --git a/amgprec/impl/solver/amg_c_invk_solver_descr.f90 b/amgprec/impl/solver/amg_c_invk_solver_descr.f90 index 31777e5f..e156e71c 100644 --- 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_ diff --git a/amgprec/impl/solver/amg_c_invt_solver_descr.f90 b/amgprec/impl/solver/amg_c_invt_solver_descr.f90 index cf6a3837..8e7c1be0 100644 --- 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_ diff --git a/amgprec/impl/solver/amg_d_ainv_solver_descr.f90 b/amgprec/impl/solver/amg_d_ainv_solver_descr.f90 index 1629eb45..e219cf2c 100644 --- 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_ diff --git a/amgprec/impl/solver/amg_d_invk_solver_descr.f90 b/amgprec/impl/solver/amg_d_invk_solver_descr.f90 index db0b70db..b33d896d 100644 --- 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_ diff --git a/amgprec/impl/solver/amg_d_invt_solver_descr.f90 b/amgprec/impl/solver/amg_d_invt_solver_descr.f90 index abb4e9f0..6a72ada8 100644 --- 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_ diff --git a/amgprec/impl/solver/amg_s_ainv_solver_descr.f90 b/amgprec/impl/solver/amg_s_ainv_solver_descr.f90 index 4074723b..59f0fb39 100644 --- 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_ diff --git a/amgprec/impl/solver/amg_s_invk_solver_descr.f90 b/amgprec/impl/solver/amg_s_invk_solver_descr.f90 index 212ff6be..61c07e58 100644 --- 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_ diff --git a/amgprec/impl/solver/amg_s_invt_solver_descr.f90 b/amgprec/impl/solver/amg_s_invt_solver_descr.f90 index 3a94f69e..617b7baf 100644 --- 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_ diff --git a/amgprec/impl/solver/amg_z_ainv_solver_descr.f90 b/amgprec/impl/solver/amg_z_ainv_solver_descr.f90 index 1518f235..df4ad7db 100644 --- 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_ diff --git a/amgprec/impl/solver/amg_z_invk_solver_descr.f90 b/amgprec/impl/solver/amg_z_invk_solver_descr.f90 index 042199c5..35ff8b16 100644 --- 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_ diff --git a/amgprec/impl/solver/amg_z_invt_solver_descr.f90 b/amgprec/impl/solver/amg_z_invt_solver_descr.f90 index 61f8ee37..ec05057a 100644 --- 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_