From cbcb0507a2b26cf1071d7bdff392e10d4e633029 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 9 Feb 2021 10:07:47 +0100 Subject: [PATCH] Take out wrong generic SET does not belong here- --- amgprec/amg_c_ainv_solver.F90 | 1 - amgprec/amg_c_invk_solver.f90 | 1 - amgprec/amg_c_invt_solver.f90 | 1 - amgprec/amg_d_ainv_solver.F90 | 1 - amgprec/amg_d_invk_solver.f90 | 1 - amgprec/amg_d_invt_solver.f90 | 1 - amgprec/amg_s_ainv_solver.F90 | 1 - amgprec/amg_s_invk_solver.f90 | 1 - amgprec/amg_s_invt_solver.f90 | 1 - amgprec/amg_z_ainv_solver.F90 | 1 - amgprec/amg_z_invk_solver.f90 | 1 - amgprec/amg_z_invt_solver.f90 | 1 - 12 files changed, 12 deletions(-) diff --git a/amgprec/amg_c_ainv_solver.F90 b/amgprec/amg_c_ainv_solver.F90 index c5796f21..df6a50d5 100644 --- a/amgprec/amg_c_ainv_solver.F90 +++ b/amgprec/amg_c_ainv_solver.F90 @@ -61,7 +61,6 @@ module amg_c_ainv_solver procedure, pass(sv) :: seti => amg_c_ainv_solver_seti procedure, pass(sv) :: setc => amg_c_ainv_solver_setc procedure, pass(sv) :: setr => amg_c_ainv_solver_setr - generic, public :: set => seti, setr, setc procedure, pass(sv) :: descr => amg_c_ainv_solver_descr procedure, pass(sv) :: default => c_ainv_solver_default procedure, nopass :: stringval => c_ainv_stringval diff --git a/amgprec/amg_c_invk_solver.f90 b/amgprec/amg_c_invk_solver.f90 index 44ad0a77..4238c16c 100644 --- a/amgprec/amg_c_invk_solver.f90 +++ b/amgprec/amg_c_invk_solver.f90 @@ -52,7 +52,6 @@ module amg_c_invk_solver procedure, pass(sv) :: build => amg_c_invk_solver_bld procedure, pass(sv) :: cseti => amg_c_invk_solver_cseti procedure, pass(sv) :: seti => amg_c_invk_solver_seti - generic, public :: set => seti procedure, pass(sv) :: descr => amg_c_invk_solver_descr procedure, pass(sv) :: default => c_invk_solver_default end type amg_c_invk_solver_type diff --git a/amgprec/amg_c_invt_solver.f90 b/amgprec/amg_c_invt_solver.f90 index 2cec974c..53beabc0 100644 --- a/amgprec/amg_c_invt_solver.f90 +++ b/amgprec/amg_c_invt_solver.f90 @@ -54,7 +54,6 @@ module amg_c_invt_solver procedure, pass(sv) :: csetr => amg_c_invt_solver_csetr procedure, pass(sv) :: seti => amg_c_invt_solver_seti procedure, pass(sv) :: setr => amg_c_invt_solver_setr - generic, public :: set => seti, setr procedure, pass(sv) :: descr => amg_c_invt_solver_descr procedure, pass(sv) :: default => c_invt_solver_default end type amg_c_invt_solver_type diff --git a/amgprec/amg_d_ainv_solver.F90 b/amgprec/amg_d_ainv_solver.F90 index 8f9dc6b7..01dd2231 100644 --- a/amgprec/amg_d_ainv_solver.F90 +++ b/amgprec/amg_d_ainv_solver.F90 @@ -61,7 +61,6 @@ module amg_d_ainv_solver procedure, pass(sv) :: seti => amg_d_ainv_solver_seti procedure, pass(sv) :: setc => amg_d_ainv_solver_setc procedure, pass(sv) :: setr => amg_d_ainv_solver_setr - generic, public :: set => seti, setr, setc procedure, pass(sv) :: descr => amg_d_ainv_solver_descr procedure, pass(sv) :: default => d_ainv_solver_default procedure, nopass :: stringval => d_ainv_stringval diff --git a/amgprec/amg_d_invk_solver.f90 b/amgprec/amg_d_invk_solver.f90 index d2d08537..87e33af8 100644 --- a/amgprec/amg_d_invk_solver.f90 +++ b/amgprec/amg_d_invk_solver.f90 @@ -52,7 +52,6 @@ module amg_d_invk_solver procedure, pass(sv) :: build => amg_d_invk_solver_bld procedure, pass(sv) :: cseti => amg_d_invk_solver_cseti procedure, pass(sv) :: seti => amg_d_invk_solver_seti - generic, public :: set => seti procedure, pass(sv) :: descr => amg_d_invk_solver_descr procedure, pass(sv) :: default => d_invk_solver_default end type amg_d_invk_solver_type diff --git a/amgprec/amg_d_invt_solver.f90 b/amgprec/amg_d_invt_solver.f90 index fecf4f27..8201af85 100644 --- a/amgprec/amg_d_invt_solver.f90 +++ b/amgprec/amg_d_invt_solver.f90 @@ -54,7 +54,6 @@ module amg_d_invt_solver procedure, pass(sv) :: csetr => amg_d_invt_solver_csetr procedure, pass(sv) :: seti => amg_d_invt_solver_seti procedure, pass(sv) :: setr => amg_d_invt_solver_setr - generic, public :: set => seti, setr procedure, pass(sv) :: descr => amg_d_invt_solver_descr procedure, pass(sv) :: default => d_invt_solver_default end type amg_d_invt_solver_type diff --git a/amgprec/amg_s_ainv_solver.F90 b/amgprec/amg_s_ainv_solver.F90 index a317227d..d3d2e9bd 100644 --- a/amgprec/amg_s_ainv_solver.F90 +++ b/amgprec/amg_s_ainv_solver.F90 @@ -61,7 +61,6 @@ module amg_s_ainv_solver procedure, pass(sv) :: seti => amg_s_ainv_solver_seti procedure, pass(sv) :: setc => amg_s_ainv_solver_setc procedure, pass(sv) :: setr => amg_s_ainv_solver_setr - generic, public :: set => seti, setr, setc procedure, pass(sv) :: descr => amg_s_ainv_solver_descr procedure, pass(sv) :: default => s_ainv_solver_default procedure, nopass :: stringval => s_ainv_stringval diff --git a/amgprec/amg_s_invk_solver.f90 b/amgprec/amg_s_invk_solver.f90 index 6ea2a43f..b5b01612 100644 --- a/amgprec/amg_s_invk_solver.f90 +++ b/amgprec/amg_s_invk_solver.f90 @@ -52,7 +52,6 @@ module amg_s_invk_solver procedure, pass(sv) :: build => amg_s_invk_solver_bld procedure, pass(sv) :: cseti => amg_s_invk_solver_cseti procedure, pass(sv) :: seti => amg_s_invk_solver_seti - generic, public :: set => seti procedure, pass(sv) :: descr => amg_s_invk_solver_descr procedure, pass(sv) :: default => s_invk_solver_default end type amg_s_invk_solver_type diff --git a/amgprec/amg_s_invt_solver.f90 b/amgprec/amg_s_invt_solver.f90 index 64a3e87d..fe972b6d 100644 --- a/amgprec/amg_s_invt_solver.f90 +++ b/amgprec/amg_s_invt_solver.f90 @@ -54,7 +54,6 @@ module amg_s_invt_solver procedure, pass(sv) :: csetr => amg_s_invt_solver_csetr procedure, pass(sv) :: seti => amg_s_invt_solver_seti procedure, pass(sv) :: setr => amg_s_invt_solver_setr - generic, public :: set => seti, setr procedure, pass(sv) :: descr => amg_s_invt_solver_descr procedure, pass(sv) :: default => s_invt_solver_default end type amg_s_invt_solver_type diff --git a/amgprec/amg_z_ainv_solver.F90 b/amgprec/amg_z_ainv_solver.F90 index 56f0b14a..e288e253 100644 --- a/amgprec/amg_z_ainv_solver.F90 +++ b/amgprec/amg_z_ainv_solver.F90 @@ -61,7 +61,6 @@ module amg_z_ainv_solver procedure, pass(sv) :: seti => amg_z_ainv_solver_seti procedure, pass(sv) :: setc => amg_z_ainv_solver_setc procedure, pass(sv) :: setr => amg_z_ainv_solver_setr - generic, public :: set => seti, setr, setc procedure, pass(sv) :: descr => amg_z_ainv_solver_descr procedure, pass(sv) :: default => z_ainv_solver_default procedure, nopass :: stringval => z_ainv_stringval diff --git a/amgprec/amg_z_invk_solver.f90 b/amgprec/amg_z_invk_solver.f90 index 86bf6f41..4f5730ff 100644 --- a/amgprec/amg_z_invk_solver.f90 +++ b/amgprec/amg_z_invk_solver.f90 @@ -52,7 +52,6 @@ module amg_z_invk_solver procedure, pass(sv) :: build => amg_z_invk_solver_bld procedure, pass(sv) :: cseti => amg_z_invk_solver_cseti procedure, pass(sv) :: seti => amg_z_invk_solver_seti - generic, public :: set => seti procedure, pass(sv) :: descr => amg_z_invk_solver_descr procedure, pass(sv) :: default => z_invk_solver_default end type amg_z_invk_solver_type diff --git a/amgprec/amg_z_invt_solver.f90 b/amgprec/amg_z_invt_solver.f90 index b8609bc7..88ac5aec 100644 --- a/amgprec/amg_z_invt_solver.f90 +++ b/amgprec/amg_z_invt_solver.f90 @@ -54,7 +54,6 @@ module amg_z_invt_solver procedure, pass(sv) :: csetr => amg_z_invt_solver_csetr procedure, pass(sv) :: seti => amg_z_invt_solver_seti procedure, pass(sv) :: setr => amg_z_invt_solver_setr - generic, public :: set => seti, setr procedure, pass(sv) :: descr => amg_z_invt_solver_descr procedure, pass(sv) :: default => z_invt_solver_default end type amg_z_invt_solver_type