Take out wrong generic SET does not belong here-

documentation
Salvatore Filippone 4 years ago
parent f3614c9deb
commit cbcb0507a2

@ -61,7 +61,6 @@ module amg_c_ainv_solver
procedure, pass(sv) :: seti => amg_c_ainv_solver_seti procedure, pass(sv) :: seti => amg_c_ainv_solver_seti
procedure, pass(sv) :: setc => amg_c_ainv_solver_setc procedure, pass(sv) :: setc => amg_c_ainv_solver_setc
procedure, pass(sv) :: setr => amg_c_ainv_solver_setr 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) :: descr => amg_c_ainv_solver_descr
procedure, pass(sv) :: default => c_ainv_solver_default procedure, pass(sv) :: default => c_ainv_solver_default
procedure, nopass :: stringval => c_ainv_stringval procedure, nopass :: stringval => c_ainv_stringval

@ -52,7 +52,6 @@ module amg_c_invk_solver
procedure, pass(sv) :: build => amg_c_invk_solver_bld procedure, pass(sv) :: build => amg_c_invk_solver_bld
procedure, pass(sv) :: cseti => amg_c_invk_solver_cseti procedure, pass(sv) :: cseti => amg_c_invk_solver_cseti
procedure, pass(sv) :: seti => amg_c_invk_solver_seti 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) :: descr => amg_c_invk_solver_descr
procedure, pass(sv) :: default => c_invk_solver_default procedure, pass(sv) :: default => c_invk_solver_default
end type amg_c_invk_solver_type end type amg_c_invk_solver_type

@ -54,7 +54,6 @@ module amg_c_invt_solver
procedure, pass(sv) :: csetr => amg_c_invt_solver_csetr procedure, pass(sv) :: csetr => amg_c_invt_solver_csetr
procedure, pass(sv) :: seti => amg_c_invt_solver_seti procedure, pass(sv) :: seti => amg_c_invt_solver_seti
procedure, pass(sv) :: setr => amg_c_invt_solver_setr 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) :: descr => amg_c_invt_solver_descr
procedure, pass(sv) :: default => c_invt_solver_default procedure, pass(sv) :: default => c_invt_solver_default
end type amg_c_invt_solver_type end type amg_c_invt_solver_type

@ -61,7 +61,6 @@ module amg_d_ainv_solver
procedure, pass(sv) :: seti => amg_d_ainv_solver_seti procedure, pass(sv) :: seti => amg_d_ainv_solver_seti
procedure, pass(sv) :: setc => amg_d_ainv_solver_setc procedure, pass(sv) :: setc => amg_d_ainv_solver_setc
procedure, pass(sv) :: setr => amg_d_ainv_solver_setr 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) :: descr => amg_d_ainv_solver_descr
procedure, pass(sv) :: default => d_ainv_solver_default procedure, pass(sv) :: default => d_ainv_solver_default
procedure, nopass :: stringval => d_ainv_stringval procedure, nopass :: stringval => d_ainv_stringval

@ -52,7 +52,6 @@ module amg_d_invk_solver
procedure, pass(sv) :: build => amg_d_invk_solver_bld procedure, pass(sv) :: build => amg_d_invk_solver_bld
procedure, pass(sv) :: cseti => amg_d_invk_solver_cseti procedure, pass(sv) :: cseti => amg_d_invk_solver_cseti
procedure, pass(sv) :: seti => amg_d_invk_solver_seti 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) :: descr => amg_d_invk_solver_descr
procedure, pass(sv) :: default => d_invk_solver_default procedure, pass(sv) :: default => d_invk_solver_default
end type amg_d_invk_solver_type end type amg_d_invk_solver_type

@ -54,7 +54,6 @@ module amg_d_invt_solver
procedure, pass(sv) :: csetr => amg_d_invt_solver_csetr procedure, pass(sv) :: csetr => amg_d_invt_solver_csetr
procedure, pass(sv) :: seti => amg_d_invt_solver_seti procedure, pass(sv) :: seti => amg_d_invt_solver_seti
procedure, pass(sv) :: setr => amg_d_invt_solver_setr 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) :: descr => amg_d_invt_solver_descr
procedure, pass(sv) :: default => d_invt_solver_default procedure, pass(sv) :: default => d_invt_solver_default
end type amg_d_invt_solver_type end type amg_d_invt_solver_type

@ -61,7 +61,6 @@ module amg_s_ainv_solver
procedure, pass(sv) :: seti => amg_s_ainv_solver_seti procedure, pass(sv) :: seti => amg_s_ainv_solver_seti
procedure, pass(sv) :: setc => amg_s_ainv_solver_setc procedure, pass(sv) :: setc => amg_s_ainv_solver_setc
procedure, pass(sv) :: setr => amg_s_ainv_solver_setr 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) :: descr => amg_s_ainv_solver_descr
procedure, pass(sv) :: default => s_ainv_solver_default procedure, pass(sv) :: default => s_ainv_solver_default
procedure, nopass :: stringval => s_ainv_stringval procedure, nopass :: stringval => s_ainv_stringval

@ -52,7 +52,6 @@ module amg_s_invk_solver
procedure, pass(sv) :: build => amg_s_invk_solver_bld procedure, pass(sv) :: build => amg_s_invk_solver_bld
procedure, pass(sv) :: cseti => amg_s_invk_solver_cseti procedure, pass(sv) :: cseti => amg_s_invk_solver_cseti
procedure, pass(sv) :: seti => amg_s_invk_solver_seti 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) :: descr => amg_s_invk_solver_descr
procedure, pass(sv) :: default => s_invk_solver_default procedure, pass(sv) :: default => s_invk_solver_default
end type amg_s_invk_solver_type end type amg_s_invk_solver_type

@ -54,7 +54,6 @@ module amg_s_invt_solver
procedure, pass(sv) :: csetr => amg_s_invt_solver_csetr procedure, pass(sv) :: csetr => amg_s_invt_solver_csetr
procedure, pass(sv) :: seti => amg_s_invt_solver_seti procedure, pass(sv) :: seti => amg_s_invt_solver_seti
procedure, pass(sv) :: setr => amg_s_invt_solver_setr 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) :: descr => amg_s_invt_solver_descr
procedure, pass(sv) :: default => s_invt_solver_default procedure, pass(sv) :: default => s_invt_solver_default
end type amg_s_invt_solver_type end type amg_s_invt_solver_type

@ -61,7 +61,6 @@ module amg_z_ainv_solver
procedure, pass(sv) :: seti => amg_z_ainv_solver_seti procedure, pass(sv) :: seti => amg_z_ainv_solver_seti
procedure, pass(sv) :: setc => amg_z_ainv_solver_setc procedure, pass(sv) :: setc => amg_z_ainv_solver_setc
procedure, pass(sv) :: setr => amg_z_ainv_solver_setr 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) :: descr => amg_z_ainv_solver_descr
procedure, pass(sv) :: default => z_ainv_solver_default procedure, pass(sv) :: default => z_ainv_solver_default
procedure, nopass :: stringval => z_ainv_stringval procedure, nopass :: stringval => z_ainv_stringval

@ -52,7 +52,6 @@ module amg_z_invk_solver
procedure, pass(sv) :: build => amg_z_invk_solver_bld procedure, pass(sv) :: build => amg_z_invk_solver_bld
procedure, pass(sv) :: cseti => amg_z_invk_solver_cseti procedure, pass(sv) :: cseti => amg_z_invk_solver_cseti
procedure, pass(sv) :: seti => amg_z_invk_solver_seti 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) :: descr => amg_z_invk_solver_descr
procedure, pass(sv) :: default => z_invk_solver_default procedure, pass(sv) :: default => z_invk_solver_default
end type amg_z_invk_solver_type end type amg_z_invk_solver_type

@ -54,7 +54,6 @@ module amg_z_invt_solver
procedure, pass(sv) :: csetr => amg_z_invt_solver_csetr procedure, pass(sv) :: csetr => amg_z_invt_solver_csetr
procedure, pass(sv) :: seti => amg_z_invt_solver_seti procedure, pass(sv) :: seti => amg_z_invt_solver_seti
procedure, pass(sv) :: setr => amg_z_invt_solver_setr 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) :: descr => amg_z_invt_solver_descr
procedure, pass(sv) :: default => z_invt_solver_default procedure, pass(sv) :: default => z_invt_solver_default
end type amg_z_invt_solver_type end type amg_z_invt_solver_type

Loading…
Cancel
Save