mirror of
https://github.com/sfilippone/amg4psblas.git
synced 2026-10-06 22:55:12 +00:00
Take out SET and generic.
This commit is contained in:
Salvatore Filippone
@@ -58,9 +58,9 @@ module amg_c_ainv_solver
|
||||
procedure, pass(sv) :: cseti => amg_c_ainv_solver_cseti
|
||||
procedure, pass(sv) :: csetc => amg_c_ainv_solver_csetc
|
||||
procedure, pass(sv) :: csetr => amg_c_ainv_solver_csetr
|
||||
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
|
||||
!!$ 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
|
||||
procedure, pass(sv) :: descr => amg_c_ainv_solver_descr
|
||||
procedure, pass(sv) :: default => c_ainv_solver_default
|
||||
procedure, nopass :: stringval => c_ainv_stringval
|
||||
@@ -158,41 +158,41 @@ module amg_c_ainv_solver
|
||||
end subroutine amg_c_ainv_solver_csetr
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_c_ainv_solver_setc(sv,what,val,info)
|
||||
import :: amg_c_ainv_solver_type, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_c_ainv_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
character(len=*), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_c_ainv_solver_setc
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_c_ainv_solver_seti(sv,what,val,info)
|
||||
import :: amg_c_ainv_solver_type, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_c_ainv_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
integer(psb_ipk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_c_ainv_solver_seti
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_c_ainv_solver_setr(sv,what,val,info)
|
||||
import :: amg_c_ainv_solver_type, psb_ipk_, psb_spk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_c_ainv_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
real(psb_spk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_c_ainv_solver_setr
|
||||
end interface
|
||||
!!$ interface
|
||||
!!$ subroutine amg_c_ainv_solver_setc(sv,what,val,info)
|
||||
!!$ import :: amg_c_ainv_solver_type, psb_ipk_
|
||||
!!$ Implicit none
|
||||
!!$ ! Arguments
|
||||
!!$ class(amg_c_ainv_solver_type), intent(inout) :: sv
|
||||
!!$ integer(psb_ipk_), intent(in) :: what
|
||||
!!$ character(len=*), intent(in) :: val
|
||||
!!$ integer(psb_ipk_), intent(out) :: info
|
||||
!!$ end subroutine amg_c_ainv_solver_setc
|
||||
!!$ end interface
|
||||
!!$
|
||||
!!$ interface
|
||||
!!$ subroutine amg_c_ainv_solver_seti(sv,what,val,info)
|
||||
!!$ import :: amg_c_ainv_solver_type, psb_ipk_
|
||||
!!$ Implicit none
|
||||
!!$ ! Arguments
|
||||
!!$ class(amg_c_ainv_solver_type), intent(inout) :: sv
|
||||
!!$ integer(psb_ipk_), intent(in) :: what
|
||||
!!$ integer(psb_ipk_), intent(in) :: val
|
||||
!!$ integer(psb_ipk_), intent(out) :: info
|
||||
!!$ end subroutine amg_c_ainv_solver_seti
|
||||
!!$ end interface
|
||||
!!$
|
||||
!!$ interface
|
||||
!!$ subroutine amg_c_ainv_solver_setr(sv,what,val,info)
|
||||
!!$ import :: amg_c_ainv_solver_type, psb_ipk_, psb_spk_
|
||||
!!$ Implicit none
|
||||
!!$ ! Arguments
|
||||
!!$ class(amg_c_ainv_solver_type), intent(inout) :: sv
|
||||
!!$ integer(psb_ipk_), intent(in) :: what
|
||||
!!$ real(psb_spk_), intent(in) :: val
|
||||
!!$ integer(psb_ipk_), intent(out) :: info
|
||||
!!$ end subroutine amg_c_ainv_solver_setr
|
||||
!!$ end interface
|
||||
|
||||
interface
|
||||
subroutine amg_c_ainv_solver_descr(sv,info,iout,coarse)
|
||||
|
||||
@@ -51,7 +51,6 @@ module amg_c_invk_solver
|
||||
procedure, pass(sv) :: clone => amg_c_invk_solver_clone
|
||||
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
|
||||
procedure, pass(sv) :: descr => amg_c_invk_solver_descr
|
||||
procedure, pass(sv) :: default => c_invk_solver_default
|
||||
end type amg_c_invk_solver_type
|
||||
@@ -135,18 +134,6 @@ module amg_c_invk_solver
|
||||
end subroutine amg_c_invk_solver_descr
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_c_invk_solver_seti(sv,what,val,info)
|
||||
import :: amg_c_invk_solver_type, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_c_invk_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
integer(psb_ipk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_c_invk_solver_seti
|
||||
end interface
|
||||
|
||||
contains
|
||||
|
||||
subroutine c_invk_solver_default(sv)
|
||||
|
||||
@@ -52,8 +52,6 @@ module amg_c_invt_solver
|
||||
procedure, pass(sv) :: build => amg_c_invt_solver_bld
|
||||
procedure, pass(sv) :: cseti => amg_c_invt_solver_cseti
|
||||
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
|
||||
procedure, pass(sv) :: descr => amg_c_invt_solver_descr
|
||||
procedure, pass(sv) :: default => c_invt_solver_default
|
||||
end type amg_c_invt_solver_type
|
||||
@@ -147,30 +145,6 @@ module amg_c_invt_solver
|
||||
end subroutine amg_c_invt_solver_descr
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_c_invt_solver_setr(sv,what,val,info)
|
||||
import :: amg_c_invt_solver_type, psb_spk_, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_c_invt_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
real(psb_spk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_c_invt_solver_setr
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_c_invt_solver_seti(sv,what,val,info)
|
||||
import :: amg_c_invt_solver_type, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_c_invt_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
integer(psb_ipk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine
|
||||
end interface
|
||||
|
||||
contains
|
||||
|
||||
subroutine c_invt_solver_default(sv)
|
||||
|
||||
@@ -58,9 +58,9 @@ module amg_d_ainv_solver
|
||||
procedure, pass(sv) :: cseti => amg_d_ainv_solver_cseti
|
||||
procedure, pass(sv) :: csetc => amg_d_ainv_solver_csetc
|
||||
procedure, pass(sv) :: csetr => amg_d_ainv_solver_csetr
|
||||
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
|
||||
!!$ 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
|
||||
procedure, pass(sv) :: descr => amg_d_ainv_solver_descr
|
||||
procedure, pass(sv) :: default => d_ainv_solver_default
|
||||
procedure, nopass :: stringval => d_ainv_stringval
|
||||
@@ -158,41 +158,41 @@ module amg_d_ainv_solver
|
||||
end subroutine amg_d_ainv_solver_csetr
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_d_ainv_solver_setc(sv,what,val,info)
|
||||
import :: amg_d_ainv_solver_type, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_d_ainv_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
character(len=*), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_d_ainv_solver_setc
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_d_ainv_solver_seti(sv,what,val,info)
|
||||
import :: amg_d_ainv_solver_type, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_d_ainv_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
integer(psb_ipk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_d_ainv_solver_seti
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_d_ainv_solver_setr(sv,what,val,info)
|
||||
import :: amg_d_ainv_solver_type, psb_ipk_, psb_dpk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_d_ainv_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
real(psb_dpk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_d_ainv_solver_setr
|
||||
end interface
|
||||
!!$ interface
|
||||
!!$ subroutine amg_d_ainv_solver_setc(sv,what,val,info)
|
||||
!!$ import :: amg_d_ainv_solver_type, psb_ipk_
|
||||
!!$ Implicit none
|
||||
!!$ ! Arguments
|
||||
!!$ class(amg_d_ainv_solver_type), intent(inout) :: sv
|
||||
!!$ integer(psb_ipk_), intent(in) :: what
|
||||
!!$ character(len=*), intent(in) :: val
|
||||
!!$ integer(psb_ipk_), intent(out) :: info
|
||||
!!$ end subroutine amg_d_ainv_solver_setc
|
||||
!!$ end interface
|
||||
!!$
|
||||
!!$ interface
|
||||
!!$ subroutine amg_d_ainv_solver_seti(sv,what,val,info)
|
||||
!!$ import :: amg_d_ainv_solver_type, psb_ipk_
|
||||
!!$ Implicit none
|
||||
!!$ ! Arguments
|
||||
!!$ class(amg_d_ainv_solver_type), intent(inout) :: sv
|
||||
!!$ integer(psb_ipk_), intent(in) :: what
|
||||
!!$ integer(psb_ipk_), intent(in) :: val
|
||||
!!$ integer(psb_ipk_), intent(out) :: info
|
||||
!!$ end subroutine amg_d_ainv_solver_seti
|
||||
!!$ end interface
|
||||
!!$
|
||||
!!$ interface
|
||||
!!$ subroutine amg_d_ainv_solver_setr(sv,what,val,info)
|
||||
!!$ import :: amg_d_ainv_solver_type, psb_ipk_, psb_dpk_
|
||||
!!$ Implicit none
|
||||
!!$ ! Arguments
|
||||
!!$ class(amg_d_ainv_solver_type), intent(inout) :: sv
|
||||
!!$ integer(psb_ipk_), intent(in) :: what
|
||||
!!$ real(psb_dpk_), intent(in) :: val
|
||||
!!$ integer(psb_ipk_), intent(out) :: info
|
||||
!!$ end subroutine amg_d_ainv_solver_setr
|
||||
!!$ end interface
|
||||
|
||||
interface
|
||||
subroutine amg_d_ainv_solver_descr(sv,info,iout,coarse)
|
||||
|
||||
@@ -51,7 +51,6 @@ module amg_d_invk_solver
|
||||
procedure, pass(sv) :: clone => amg_d_invk_solver_clone
|
||||
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
|
||||
procedure, pass(sv) :: descr => amg_d_invk_solver_descr
|
||||
procedure, pass(sv) :: default => d_invk_solver_default
|
||||
end type amg_d_invk_solver_type
|
||||
@@ -135,18 +134,6 @@ module amg_d_invk_solver
|
||||
end subroutine amg_d_invk_solver_descr
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_d_invk_solver_seti(sv,what,val,info)
|
||||
import :: amg_d_invk_solver_type, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_d_invk_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
integer(psb_ipk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_d_invk_solver_seti
|
||||
end interface
|
||||
|
||||
contains
|
||||
|
||||
subroutine d_invk_solver_default(sv)
|
||||
|
||||
@@ -52,8 +52,6 @@ module amg_d_invt_solver
|
||||
procedure, pass(sv) :: build => amg_d_invt_solver_bld
|
||||
procedure, pass(sv) :: cseti => amg_d_invt_solver_cseti
|
||||
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
|
||||
procedure, pass(sv) :: descr => amg_d_invt_solver_descr
|
||||
procedure, pass(sv) :: default => d_invt_solver_default
|
||||
end type amg_d_invt_solver_type
|
||||
@@ -147,30 +145,6 @@ module amg_d_invt_solver
|
||||
end subroutine amg_d_invt_solver_descr
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_d_invt_solver_setr(sv,what,val,info)
|
||||
import :: amg_d_invt_solver_type, psb_dpk_, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_d_invt_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
real(psb_dpk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_d_invt_solver_setr
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_d_invt_solver_seti(sv,what,val,info)
|
||||
import :: amg_d_invt_solver_type, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_d_invt_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
integer(psb_ipk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine
|
||||
end interface
|
||||
|
||||
contains
|
||||
|
||||
subroutine d_invt_solver_default(sv)
|
||||
|
||||
@@ -58,9 +58,9 @@ module amg_s_ainv_solver
|
||||
procedure, pass(sv) :: cseti => amg_s_ainv_solver_cseti
|
||||
procedure, pass(sv) :: csetc => amg_s_ainv_solver_csetc
|
||||
procedure, pass(sv) :: csetr => amg_s_ainv_solver_csetr
|
||||
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
|
||||
!!$ 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
|
||||
procedure, pass(sv) :: descr => amg_s_ainv_solver_descr
|
||||
procedure, pass(sv) :: default => s_ainv_solver_default
|
||||
procedure, nopass :: stringval => s_ainv_stringval
|
||||
@@ -158,41 +158,41 @@ module amg_s_ainv_solver
|
||||
end subroutine amg_s_ainv_solver_csetr
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_s_ainv_solver_setc(sv,what,val,info)
|
||||
import :: amg_s_ainv_solver_type, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_s_ainv_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
character(len=*), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_s_ainv_solver_setc
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_s_ainv_solver_seti(sv,what,val,info)
|
||||
import :: amg_s_ainv_solver_type, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_s_ainv_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
integer(psb_ipk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_s_ainv_solver_seti
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_s_ainv_solver_setr(sv,what,val,info)
|
||||
import :: amg_s_ainv_solver_type, psb_ipk_, psb_spk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_s_ainv_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
real(psb_spk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_s_ainv_solver_setr
|
||||
end interface
|
||||
!!$ interface
|
||||
!!$ subroutine amg_s_ainv_solver_setc(sv,what,val,info)
|
||||
!!$ import :: amg_s_ainv_solver_type, psb_ipk_
|
||||
!!$ Implicit none
|
||||
!!$ ! Arguments
|
||||
!!$ class(amg_s_ainv_solver_type), intent(inout) :: sv
|
||||
!!$ integer(psb_ipk_), intent(in) :: what
|
||||
!!$ character(len=*), intent(in) :: val
|
||||
!!$ integer(psb_ipk_), intent(out) :: info
|
||||
!!$ end subroutine amg_s_ainv_solver_setc
|
||||
!!$ end interface
|
||||
!!$
|
||||
!!$ interface
|
||||
!!$ subroutine amg_s_ainv_solver_seti(sv,what,val,info)
|
||||
!!$ import :: amg_s_ainv_solver_type, psb_ipk_
|
||||
!!$ Implicit none
|
||||
!!$ ! Arguments
|
||||
!!$ class(amg_s_ainv_solver_type), intent(inout) :: sv
|
||||
!!$ integer(psb_ipk_), intent(in) :: what
|
||||
!!$ integer(psb_ipk_), intent(in) :: val
|
||||
!!$ integer(psb_ipk_), intent(out) :: info
|
||||
!!$ end subroutine amg_s_ainv_solver_seti
|
||||
!!$ end interface
|
||||
!!$
|
||||
!!$ interface
|
||||
!!$ subroutine amg_s_ainv_solver_setr(sv,what,val,info)
|
||||
!!$ import :: amg_s_ainv_solver_type, psb_ipk_, psb_spk_
|
||||
!!$ Implicit none
|
||||
!!$ ! Arguments
|
||||
!!$ class(amg_s_ainv_solver_type), intent(inout) :: sv
|
||||
!!$ integer(psb_ipk_), intent(in) :: what
|
||||
!!$ real(psb_spk_), intent(in) :: val
|
||||
!!$ integer(psb_ipk_), intent(out) :: info
|
||||
!!$ end subroutine amg_s_ainv_solver_setr
|
||||
!!$ end interface
|
||||
|
||||
interface
|
||||
subroutine amg_s_ainv_solver_descr(sv,info,iout,coarse)
|
||||
|
||||
@@ -51,7 +51,6 @@ module amg_s_invk_solver
|
||||
procedure, pass(sv) :: clone => amg_s_invk_solver_clone
|
||||
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
|
||||
procedure, pass(sv) :: descr => amg_s_invk_solver_descr
|
||||
procedure, pass(sv) :: default => s_invk_solver_default
|
||||
end type amg_s_invk_solver_type
|
||||
@@ -135,18 +134,6 @@ module amg_s_invk_solver
|
||||
end subroutine amg_s_invk_solver_descr
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_s_invk_solver_seti(sv,what,val,info)
|
||||
import :: amg_s_invk_solver_type, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_s_invk_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
integer(psb_ipk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_s_invk_solver_seti
|
||||
end interface
|
||||
|
||||
contains
|
||||
|
||||
subroutine s_invk_solver_default(sv)
|
||||
|
||||
@@ -52,8 +52,6 @@ module amg_s_invt_solver
|
||||
procedure, pass(sv) :: build => amg_s_invt_solver_bld
|
||||
procedure, pass(sv) :: cseti => amg_s_invt_solver_cseti
|
||||
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
|
||||
procedure, pass(sv) :: descr => amg_s_invt_solver_descr
|
||||
procedure, pass(sv) :: default => s_invt_solver_default
|
||||
end type amg_s_invt_solver_type
|
||||
@@ -147,30 +145,6 @@ module amg_s_invt_solver
|
||||
end subroutine amg_s_invt_solver_descr
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_s_invt_solver_setr(sv,what,val,info)
|
||||
import :: amg_s_invt_solver_type, psb_spk_, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_s_invt_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
real(psb_spk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_s_invt_solver_setr
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_s_invt_solver_seti(sv,what,val,info)
|
||||
import :: amg_s_invt_solver_type, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_s_invt_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
integer(psb_ipk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine
|
||||
end interface
|
||||
|
||||
contains
|
||||
|
||||
subroutine s_invt_solver_default(sv)
|
||||
|
||||
@@ -58,9 +58,9 @@ module amg_z_ainv_solver
|
||||
procedure, pass(sv) :: cseti => amg_z_ainv_solver_cseti
|
||||
procedure, pass(sv) :: csetc => amg_z_ainv_solver_csetc
|
||||
procedure, pass(sv) :: csetr => amg_z_ainv_solver_csetr
|
||||
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
|
||||
!!$ 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
|
||||
procedure, pass(sv) :: descr => amg_z_ainv_solver_descr
|
||||
procedure, pass(sv) :: default => z_ainv_solver_default
|
||||
procedure, nopass :: stringval => z_ainv_stringval
|
||||
@@ -158,41 +158,41 @@ module amg_z_ainv_solver
|
||||
end subroutine amg_z_ainv_solver_csetr
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_z_ainv_solver_setc(sv,what,val,info)
|
||||
import :: amg_z_ainv_solver_type, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_z_ainv_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
character(len=*), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_z_ainv_solver_setc
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_z_ainv_solver_seti(sv,what,val,info)
|
||||
import :: amg_z_ainv_solver_type, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_z_ainv_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
integer(psb_ipk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_z_ainv_solver_seti
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_z_ainv_solver_setr(sv,what,val,info)
|
||||
import :: amg_z_ainv_solver_type, psb_ipk_, psb_dpk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_z_ainv_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
real(psb_dpk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_z_ainv_solver_setr
|
||||
end interface
|
||||
!!$ interface
|
||||
!!$ subroutine amg_z_ainv_solver_setc(sv,what,val,info)
|
||||
!!$ import :: amg_z_ainv_solver_type, psb_ipk_
|
||||
!!$ Implicit none
|
||||
!!$ ! Arguments
|
||||
!!$ class(amg_z_ainv_solver_type), intent(inout) :: sv
|
||||
!!$ integer(psb_ipk_), intent(in) :: what
|
||||
!!$ character(len=*), intent(in) :: val
|
||||
!!$ integer(psb_ipk_), intent(out) :: info
|
||||
!!$ end subroutine amg_z_ainv_solver_setc
|
||||
!!$ end interface
|
||||
!!$
|
||||
!!$ interface
|
||||
!!$ subroutine amg_z_ainv_solver_seti(sv,what,val,info)
|
||||
!!$ import :: amg_z_ainv_solver_type, psb_ipk_
|
||||
!!$ Implicit none
|
||||
!!$ ! Arguments
|
||||
!!$ class(amg_z_ainv_solver_type), intent(inout) :: sv
|
||||
!!$ integer(psb_ipk_), intent(in) :: what
|
||||
!!$ integer(psb_ipk_), intent(in) :: val
|
||||
!!$ integer(psb_ipk_), intent(out) :: info
|
||||
!!$ end subroutine amg_z_ainv_solver_seti
|
||||
!!$ end interface
|
||||
!!$
|
||||
!!$ interface
|
||||
!!$ subroutine amg_z_ainv_solver_setr(sv,what,val,info)
|
||||
!!$ import :: amg_z_ainv_solver_type, psb_ipk_, psb_dpk_
|
||||
!!$ Implicit none
|
||||
!!$ ! Arguments
|
||||
!!$ class(amg_z_ainv_solver_type), intent(inout) :: sv
|
||||
!!$ integer(psb_ipk_), intent(in) :: what
|
||||
!!$ real(psb_dpk_), intent(in) :: val
|
||||
!!$ integer(psb_ipk_), intent(out) :: info
|
||||
!!$ end subroutine amg_z_ainv_solver_setr
|
||||
!!$ end interface
|
||||
|
||||
interface
|
||||
subroutine amg_z_ainv_solver_descr(sv,info,iout,coarse)
|
||||
|
||||
@@ -51,7 +51,6 @@ module amg_z_invk_solver
|
||||
procedure, pass(sv) :: clone => amg_z_invk_solver_clone
|
||||
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
|
||||
procedure, pass(sv) :: descr => amg_z_invk_solver_descr
|
||||
procedure, pass(sv) :: default => z_invk_solver_default
|
||||
end type amg_z_invk_solver_type
|
||||
@@ -135,18 +134,6 @@ module amg_z_invk_solver
|
||||
end subroutine amg_z_invk_solver_descr
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_z_invk_solver_seti(sv,what,val,info)
|
||||
import :: amg_z_invk_solver_type, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_z_invk_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
integer(psb_ipk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_z_invk_solver_seti
|
||||
end interface
|
||||
|
||||
contains
|
||||
|
||||
subroutine z_invk_solver_default(sv)
|
||||
|
||||
@@ -52,8 +52,6 @@ module amg_z_invt_solver
|
||||
procedure, pass(sv) :: build => amg_z_invt_solver_bld
|
||||
procedure, pass(sv) :: cseti => amg_z_invt_solver_cseti
|
||||
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
|
||||
procedure, pass(sv) :: descr => amg_z_invt_solver_descr
|
||||
procedure, pass(sv) :: default => z_invt_solver_default
|
||||
end type amg_z_invt_solver_type
|
||||
@@ -147,30 +145,6 @@ module amg_z_invt_solver
|
||||
end subroutine amg_z_invt_solver_descr
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_z_invt_solver_setr(sv,what,val,info)
|
||||
import :: amg_z_invt_solver_type, psb_dpk_, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_z_invt_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
real(psb_dpk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine amg_z_invt_solver_setr
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine amg_z_invt_solver_seti(sv,what,val,info)
|
||||
import :: amg_z_invt_solver_type, psb_ipk_
|
||||
Implicit none
|
||||
! Arguments
|
||||
class(amg_z_invt_solver_type), intent(inout) :: sv
|
||||
integer(psb_ipk_), intent(in) :: what
|
||||
integer(psb_ipk_), intent(in) :: val
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
end subroutine
|
||||
end interface
|
||||
|
||||
contains
|
||||
|
||||
subroutine z_invt_solver_default(sv)
|
||||
|
||||
@@ -198,9 +198,6 @@ amg_s_ainv_solver_csetc.o \
|
||||
amg_s_ainv_solver_cseti.o \
|
||||
amg_s_ainv_solver_csetr.o \
|
||||
amg_s_ainv_solver_descr.o \
|
||||
amg_s_ainv_solver_setc.o \
|
||||
amg_s_ainv_solver_seti.o \
|
||||
amg_s_ainv_solver_setr.o \
|
||||
amg_d_ainv_solver_bld.o \
|
||||
amg_d_ainv_solver_check.o \
|
||||
amg_d_ainv_solver_clone.o \
|
||||
@@ -208,9 +205,6 @@ amg_d_ainv_solver_csetc.o \
|
||||
amg_d_ainv_solver_cseti.o \
|
||||
amg_d_ainv_solver_csetr.o \
|
||||
amg_d_ainv_solver_descr.o \
|
||||
amg_d_ainv_solver_setc.o \
|
||||
amg_d_ainv_solver_seti.o \
|
||||
amg_d_ainv_solver_setr.o \
|
||||
amg_c_ainv_solver_bld.o \
|
||||
amg_c_ainv_solver_check.o \
|
||||
amg_c_ainv_solver_clone.o \
|
||||
@@ -218,9 +212,6 @@ amg_c_ainv_solver_csetc.o \
|
||||
amg_c_ainv_solver_cseti.o \
|
||||
amg_c_ainv_solver_csetr.o \
|
||||
amg_c_ainv_solver_descr.o \
|
||||
amg_c_ainv_solver_setc.o \
|
||||
amg_c_ainv_solver_seti.o \
|
||||
amg_c_ainv_solver_setr.o \
|
||||
amg_z_ainv_solver_bld.o \
|
||||
amg_z_ainv_solver_check.o \
|
||||
amg_z_ainv_solver_clone.o \
|
||||
@@ -228,9 +219,6 @@ amg_z_ainv_solver_csetc.o \
|
||||
amg_z_ainv_solver_cseti.o \
|
||||
amg_z_ainv_solver_csetr.o \
|
||||
amg_z_ainv_solver_descr.o \
|
||||
amg_z_ainv_solver_setc.o \
|
||||
amg_z_ainv_solver_seti.o \
|
||||
amg_z_ainv_solver_setr.o \
|
||||
amg_s_base_ainv_solver_apply_vect.o \
|
||||
amg_s_base_ainv_solver_apply.o \
|
||||
amg_s_base_ainv_solver_cnv.o \
|
||||
@@ -261,56 +249,44 @@ amg_d_invt_solver_clone.o \
|
||||
amg_d_invt_solver_cseti.o \
|
||||
amg_d_invt_solver_csetr.o \
|
||||
amg_d_invt_solver_descr.o \
|
||||
amg_d_invt_solver_seti.o \
|
||||
amg_d_invt_solver_setr.o \
|
||||
amg_d_invk_solver_bld.o \
|
||||
amg_d_invk_solver_check.o \
|
||||
amg_d_invk_solver_clone.o \
|
||||
amg_d_invk_solver_cseti.o \
|
||||
amg_d_invk_solver_descr.o \
|
||||
amg_d_invk_solver_seti.o \
|
||||
amg_s_invt_solver_bld.o \
|
||||
amg_s_invt_solver_check.o \
|
||||
amg_s_invt_solver_clone.o \
|
||||
amg_s_invt_solver_cseti.o \
|
||||
amg_s_invt_solver_csetr.o \
|
||||
amg_s_invt_solver_descr.o \
|
||||
amg_s_invt_solver_seti.o \
|
||||
amg_s_invt_solver_setr.o \
|
||||
amg_s_invk_solver_bld.o \
|
||||
amg_s_invk_solver_check.o \
|
||||
amg_s_invk_solver_clone.o \
|
||||
amg_s_invk_solver_cseti.o \
|
||||
amg_s_invk_solver_descr.o \
|
||||
amg_s_invk_solver_seti.o \
|
||||
amg_c_invt_solver_bld.o \
|
||||
amg_c_invt_solver_check.o \
|
||||
amg_c_invt_solver_clone.o \
|
||||
amg_c_invt_solver_cseti.o \
|
||||
amg_c_invt_solver_csetr.o \
|
||||
amg_c_invt_solver_descr.o \
|
||||
amg_c_invt_solver_seti.o \
|
||||
amg_c_invt_solver_setr.o \
|
||||
amg_c_invk_solver_bld.o \
|
||||
amg_c_invk_solver_check.o \
|
||||
amg_c_invk_solver_clone.o \
|
||||
amg_c_invk_solver_cseti.o \
|
||||
amg_c_invk_solver_descr.o \
|
||||
amg_c_invk_solver_seti.o \
|
||||
amg_z_invt_solver_bld.o \
|
||||
amg_z_invt_solver_check.o \
|
||||
amg_z_invt_solver_clone.o \
|
||||
amg_z_invt_solver_cseti.o \
|
||||
amg_z_invt_solver_csetr.o \
|
||||
amg_z_invt_solver_descr.o \
|
||||
amg_z_invt_solver_seti.o \
|
||||
amg_z_invt_solver_setr.o \
|
||||
amg_z_invk_solver_bld.o \
|
||||
amg_z_invk_solver_check.o \
|
||||
amg_z_invk_solver_clone.o \
|
||||
amg_z_invk_solver_cseti.o \
|
||||
amg_z_invk_solver_descr.o \
|
||||
amg_z_invk_solver_seti.o
|
||||
amg_z_invk_solver_descr.o
|
||||
|
||||
LIBNAME=libamg_prec.a
|
||||
|
||||
|
||||
Reference in New Issue
Block a user