fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Take out SET and generic.

Browse Source
documentation
Salvatore Filippone 4 years ago
parent cbcb0507a2
commit 6beaf49275
13 changed files with 153 additions and 333 deletions
Show Stats Download Patch File Download Diff File

76
amgprec/amg_c_ainv_solver.F90
Unescape Escape View File

@ -58,9 +58,9 @@ module amg_c_ainv_solver
procedure, pass(sv) :: cseti => amg_c_ainv_solver_cseti procedure, pass(sv) :: cseti => amg_c_ainv_solver_cseti
procedure, pass(sv) :: csetc => amg_c_ainv_solver_csetc procedure, pass(sv) :: csetc => amg_c_ainv_solver_csetc
procedure, pass(sv) :: csetr => amg_c_ainv_solver_csetr procedure, pass(sv) :: csetr => amg_c_ainv_solver_csetr
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
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
@ -158,41 +158,41 @@ module amg_c_ainv_solver
end subroutine amg_c_ainv_solver_csetr end subroutine amg_c_ainv_solver_csetr
end interface end interface
interface !!$ interface
subroutine amg_c_ainv_solver_setc(sv,what,val,info) !!$ subroutine amg_c_ainv_solver_setc(sv,what,val,info)
import :: amg_c_ainv_solver_type, psb_ipk_ !!$ import :: amg_c_ainv_solver_type, psb_ipk_
Implicit none !!$ Implicit none
! Arguments !!$ ! Arguments
class(amg_c_ainv_solver_type), intent(inout) :: sv !!$ class(amg_c_ainv_solver_type), intent(inout) :: sv
integer(psb_ipk_), intent(in) :: what !!$ integer(psb_ipk_), intent(in) :: what
character(len=*), intent(in) :: val !!$ character(len=*), intent(in) :: val
integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_), intent(out) :: info
end subroutine amg_c_ainv_solver_setc !!$ end subroutine amg_c_ainv_solver_setc
end interface !!$ end interface
!!$
interface !!$ interface
subroutine amg_c_ainv_solver_seti(sv,what,val,info) !!$ subroutine amg_c_ainv_solver_seti(sv,what,val,info)
import :: amg_c_ainv_solver_type, psb_ipk_ !!$ import :: amg_c_ainv_solver_type, psb_ipk_
Implicit none !!$ Implicit none
! Arguments !!$ ! Arguments
class(amg_c_ainv_solver_type), intent(inout) :: sv !!$ class(amg_c_ainv_solver_type), intent(inout) :: sv
integer(psb_ipk_), intent(in) :: what !!$ integer(psb_ipk_), intent(in) :: what
integer(psb_ipk_), intent(in) :: val !!$ integer(psb_ipk_), intent(in) :: val
integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_), intent(out) :: info
end subroutine amg_c_ainv_solver_seti !!$ end subroutine amg_c_ainv_solver_seti
end interface !!$ end interface
!!$
interface !!$ interface
subroutine amg_c_ainv_solver_setr(sv,what,val,info) !!$ subroutine amg_c_ainv_solver_setr(sv,what,val,info)
import :: amg_c_ainv_solver_type, psb_ipk_, psb_spk_ !!$ import :: amg_c_ainv_solver_type, psb_ipk_, psb_spk_
Implicit none !!$ Implicit none
! Arguments !!$ ! Arguments
class(amg_c_ainv_solver_type), intent(inout) :: sv !!$ class(amg_c_ainv_solver_type), intent(inout) :: sv
integer(psb_ipk_), intent(in) :: what !!$ integer(psb_ipk_), intent(in) :: what
real(psb_spk_), intent(in) :: val !!$ real(psb_spk_), intent(in) :: val
integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_), intent(out) :: info
end subroutine amg_c_ainv_solver_setr !!$ end subroutine amg_c_ainv_solver_setr
end interface !!$ end interface
interface interface
subroutine amg_c_ainv_solver_descr(sv,info,iout,coarse) subroutine amg_c_ainv_solver_descr(sv,info,iout,coarse)

13
amgprec/amg_c_invk_solver.f90
Unescape Escape View File

@ -51,7 +51,6 @@ module amg_c_invk_solver
procedure, pass(sv) :: clone => amg_c_invk_solver_clone procedure, pass(sv) :: clone => amg_c_invk_solver_clone
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) :: 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
@ -135,18 +134,6 @@ module amg_c_invk_solver
end subroutine amg_c_invk_solver_descr end subroutine amg_c_invk_solver_descr
end interface 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 contains
subroutine c_invk_solver_default(sv) subroutine c_invk_solver_default(sv)

26
amgprec/amg_c_invt_solver.f90
Unescape Escape View File

@ -52,8 +52,6 @@ module amg_c_invt_solver
procedure, pass(sv) :: build => amg_c_invt_solver_bld procedure, pass(sv) :: build => amg_c_invt_solver_bld
procedure, pass(sv) :: cseti => amg_c_invt_solver_cseti procedure, pass(sv) :: cseti => amg_c_invt_solver_cseti
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) :: setr => amg_c_invt_solver_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
@ -147,30 +145,6 @@ module amg_c_invt_solver
end subroutine amg_c_invt_solver_descr end subroutine amg_c_invt_solver_descr
end interface 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 contains
subroutine c_invt_solver_default(sv) subroutine c_invt_solver_default(sv)

76
amgprec/amg_d_ainv_solver.F90
Unescape Escape View File

@ -58,9 +58,9 @@ module amg_d_ainv_solver
procedure, pass(sv) :: cseti => amg_d_ainv_solver_cseti procedure, pass(sv) :: cseti => amg_d_ainv_solver_cseti
procedure, pass(sv) :: csetc => amg_d_ainv_solver_csetc procedure, pass(sv) :: csetc => amg_d_ainv_solver_csetc
procedure, pass(sv) :: csetr => amg_d_ainv_solver_csetr procedure, pass(sv) :: csetr => amg_d_ainv_solver_csetr
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
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
@ -158,41 +158,41 @@ module amg_d_ainv_solver
end subroutine amg_d_ainv_solver_csetr end subroutine amg_d_ainv_solver_csetr
end interface end interface
interface !!$ interface
subroutine amg_d_ainv_solver_setc(sv,what,val,info) !!$ subroutine amg_d_ainv_solver_setc(sv,what,val,info)
import :: amg_d_ainv_solver_type, psb_ipk_ !!$ import :: amg_d_ainv_solver_type, psb_ipk_
Implicit none !!$ Implicit none
! Arguments !!$ ! Arguments
class(amg_d_ainv_solver_type), intent(inout) :: sv !!$ class(amg_d_ainv_solver_type), intent(inout) :: sv
integer(psb_ipk_), intent(in) :: what !!$ integer(psb_ipk_), intent(in) :: what
character(len=*), intent(in) :: val !!$ character(len=*), intent(in) :: val
integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_), intent(out) :: info
end subroutine amg_d_ainv_solver_setc !!$ end subroutine amg_d_ainv_solver_setc
end interface !!$ end interface
!!$
interface !!$ interface
subroutine amg_d_ainv_solver_seti(sv,what,val,info) !!$ subroutine amg_d_ainv_solver_seti(sv,what,val,info)
import :: amg_d_ainv_solver_type, psb_ipk_ !!$ import :: amg_d_ainv_solver_type, psb_ipk_
Implicit none !!$ Implicit none
! Arguments !!$ ! Arguments
class(amg_d_ainv_solver_type), intent(inout) :: sv !!$ class(amg_d_ainv_solver_type), intent(inout) :: sv
integer(psb_ipk_), intent(in) :: what !!$ integer(psb_ipk_), intent(in) :: what
integer(psb_ipk_), intent(in) :: val !!$ integer(psb_ipk_), intent(in) :: val
integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_), intent(out) :: info
end subroutine amg_d_ainv_solver_seti !!$ end subroutine amg_d_ainv_solver_seti
end interface !!$ end interface
!!$
interface !!$ interface
subroutine amg_d_ainv_solver_setr(sv,what,val,info) !!$ subroutine amg_d_ainv_solver_setr(sv,what,val,info)
import :: amg_d_ainv_solver_type, psb_ipk_, psb_dpk_ !!$ import :: amg_d_ainv_solver_type, psb_ipk_, psb_dpk_
Implicit none !!$ Implicit none
! Arguments !!$ ! Arguments
class(amg_d_ainv_solver_type), intent(inout) :: sv !!$ class(amg_d_ainv_solver_type), intent(inout) :: sv
integer(psb_ipk_), intent(in) :: what !!$ integer(psb_ipk_), intent(in) :: what
real(psb_dpk_), intent(in) :: val !!$ real(psb_dpk_), intent(in) :: val
integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_), intent(out) :: info
end subroutine amg_d_ainv_solver_setr !!$ end subroutine amg_d_ainv_solver_setr
end interface !!$ end interface
interface interface
subroutine amg_d_ainv_solver_descr(sv,info,iout,coarse) subroutine amg_d_ainv_solver_descr(sv,info,iout,coarse)

13
amgprec/amg_d_invk_solver.f90
Unescape Escape View File

@ -51,7 +51,6 @@ module amg_d_invk_solver
procedure, pass(sv) :: clone => amg_d_invk_solver_clone procedure, pass(sv) :: clone => amg_d_invk_solver_clone
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) :: 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
@ -135,18 +134,6 @@ module amg_d_invk_solver
end subroutine amg_d_invk_solver_descr end subroutine amg_d_invk_solver_descr
end interface 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 contains
subroutine d_invk_solver_default(sv) subroutine d_invk_solver_default(sv)

26
amgprec/amg_d_invt_solver.f90
Unescape Escape View File

@ -52,8 +52,6 @@ module amg_d_invt_solver
procedure, pass(sv) :: build => amg_d_invt_solver_bld procedure, pass(sv) :: build => amg_d_invt_solver_bld
procedure, pass(sv) :: cseti => amg_d_invt_solver_cseti procedure, pass(sv) :: cseti => amg_d_invt_solver_cseti
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) :: setr => amg_d_invt_solver_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
@ -147,30 +145,6 @@ module amg_d_invt_solver
end subroutine amg_d_invt_solver_descr end subroutine amg_d_invt_solver_descr
end interface 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 contains
subroutine d_invt_solver_default(sv) subroutine d_invt_solver_default(sv)

76
amgprec/amg_s_ainv_solver.F90
Unescape Escape View File

@ -58,9 +58,9 @@ module amg_s_ainv_solver
procedure, pass(sv) :: cseti => amg_s_ainv_solver_cseti procedure, pass(sv) :: cseti => amg_s_ainv_solver_cseti
procedure, pass(sv) :: csetc => amg_s_ainv_solver_csetc procedure, pass(sv) :: csetc => amg_s_ainv_solver_csetc
procedure, pass(sv) :: csetr => amg_s_ainv_solver_csetr procedure, pass(sv) :: csetr => amg_s_ainv_solver_csetr
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
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
@ -158,41 +158,41 @@ module amg_s_ainv_solver
end subroutine amg_s_ainv_solver_csetr end subroutine amg_s_ainv_solver_csetr
end interface end interface
interface !!$ interface
subroutine amg_s_ainv_solver_setc(sv,what,val,info) !!$ subroutine amg_s_ainv_solver_setc(sv,what,val,info)
import :: amg_s_ainv_solver_type, psb_ipk_ !!$ import :: amg_s_ainv_solver_type, psb_ipk_
Implicit none !!$ Implicit none
! Arguments !!$ ! Arguments
class(amg_s_ainv_solver_type), intent(inout) :: sv !!$ class(amg_s_ainv_solver_type), intent(inout) :: sv
integer(psb_ipk_), intent(in) :: what !!$ integer(psb_ipk_), intent(in) :: what
character(len=*), intent(in) :: val !!$ character(len=*), intent(in) :: val
integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_), intent(out) :: info
end subroutine amg_s_ainv_solver_setc !!$ end subroutine amg_s_ainv_solver_setc
end interface !!$ end interface
!!$
interface !!$ interface
subroutine amg_s_ainv_solver_seti(sv,what,val,info) !!$ subroutine amg_s_ainv_solver_seti(sv,what,val,info)
import :: amg_s_ainv_solver_type, psb_ipk_ !!$ import :: amg_s_ainv_solver_type, psb_ipk_
Implicit none !!$ Implicit none
! Arguments !!$ ! Arguments
class(amg_s_ainv_solver_type), intent(inout) :: sv !!$ class(amg_s_ainv_solver_type), intent(inout) :: sv
integer(psb_ipk_), intent(in) :: what !!$ integer(psb_ipk_), intent(in) :: what
integer(psb_ipk_), intent(in) :: val !!$ integer(psb_ipk_), intent(in) :: val
integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_), intent(out) :: info
end subroutine amg_s_ainv_solver_seti !!$ end subroutine amg_s_ainv_solver_seti
end interface !!$ end interface
!!$
interface !!$ interface
subroutine amg_s_ainv_solver_setr(sv,what,val,info) !!$ subroutine amg_s_ainv_solver_setr(sv,what,val,info)
import :: amg_s_ainv_solver_type, psb_ipk_, psb_spk_ !!$ import :: amg_s_ainv_solver_type, psb_ipk_, psb_spk_
Implicit none !!$ Implicit none
! Arguments !!$ ! Arguments
class(amg_s_ainv_solver_type), intent(inout) :: sv !!$ class(amg_s_ainv_solver_type), intent(inout) :: sv
integer(psb_ipk_), intent(in) :: what !!$ integer(psb_ipk_), intent(in) :: what
real(psb_spk_), intent(in) :: val !!$ real(psb_spk_), intent(in) :: val
integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_), intent(out) :: info
end subroutine amg_s_ainv_solver_setr !!$ end subroutine amg_s_ainv_solver_setr
end interface !!$ end interface
interface interface
subroutine amg_s_ainv_solver_descr(sv,info,iout,coarse) subroutine amg_s_ainv_solver_descr(sv,info,iout,coarse)

13
amgprec/amg_s_invk_solver.f90
Unescape Escape View File

@ -51,7 +51,6 @@ module amg_s_invk_solver
procedure, pass(sv) :: clone => amg_s_invk_solver_clone procedure, pass(sv) :: clone => amg_s_invk_solver_clone
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) :: 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
@ -135,18 +134,6 @@ module amg_s_invk_solver
end subroutine amg_s_invk_solver_descr end subroutine amg_s_invk_solver_descr
end interface 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 contains
subroutine s_invk_solver_default(sv) subroutine s_invk_solver_default(sv)

26
amgprec/amg_s_invt_solver.f90
Unescape Escape View File

@ -52,8 +52,6 @@ module amg_s_invt_solver
procedure, pass(sv) :: build => amg_s_invt_solver_bld procedure, pass(sv) :: build => amg_s_invt_solver_bld
procedure, pass(sv) :: cseti => amg_s_invt_solver_cseti procedure, pass(sv) :: cseti => amg_s_invt_solver_cseti
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) :: setr => amg_s_invt_solver_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
@ -147,30 +145,6 @@ module amg_s_invt_solver
end subroutine amg_s_invt_solver_descr end subroutine amg_s_invt_solver_descr
end interface 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 contains
subroutine s_invt_solver_default(sv) subroutine s_invt_solver_default(sv)

76
amgprec/amg_z_ainv_solver.F90
Unescape Escape View File

@ -58,9 +58,9 @@ module amg_z_ainv_solver
procedure, pass(sv) :: cseti => amg_z_ainv_solver_cseti procedure, pass(sv) :: cseti => amg_z_ainv_solver_cseti
procedure, pass(sv) :: csetc => amg_z_ainv_solver_csetc procedure, pass(sv) :: csetc => amg_z_ainv_solver_csetc
procedure, pass(sv) :: csetr => amg_z_ainv_solver_csetr procedure, pass(sv) :: csetr => amg_z_ainv_solver_csetr
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
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
@ -158,41 +158,41 @@ module amg_z_ainv_solver
end subroutine amg_z_ainv_solver_csetr end subroutine amg_z_ainv_solver_csetr
end interface end interface
interface !!$ interface
subroutine amg_z_ainv_solver_setc(sv,what,val,info) !!$ subroutine amg_z_ainv_solver_setc(sv,what,val,info)
import :: amg_z_ainv_solver_type, psb_ipk_ !!$ import :: amg_z_ainv_solver_type, psb_ipk_
Implicit none !!$ Implicit none
! Arguments !!$ ! Arguments
class(amg_z_ainv_solver_type), intent(inout) :: sv !!$ class(amg_z_ainv_solver_type), intent(inout) :: sv
integer(psb_ipk_), intent(in) :: what !!$ integer(psb_ipk_), intent(in) :: what
character(len=*), intent(in) :: val !!$ character(len=*), intent(in) :: val
integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_), intent(out) :: info
end subroutine amg_z_ainv_solver_setc !!$ end subroutine amg_z_ainv_solver_setc
end interface !!$ end interface
!!$
interface !!$ interface
subroutine amg_z_ainv_solver_seti(sv,what,val,info) !!$ subroutine amg_z_ainv_solver_seti(sv,what,val,info)
import :: amg_z_ainv_solver_type, psb_ipk_ !!$ import :: amg_z_ainv_solver_type, psb_ipk_
Implicit none !!$ Implicit none
! Arguments !!$ ! Arguments
class(amg_z_ainv_solver_type), intent(inout) :: sv !!$ class(amg_z_ainv_solver_type), intent(inout) :: sv
integer(psb_ipk_), intent(in) :: what !!$ integer(psb_ipk_), intent(in) :: what
integer(psb_ipk_), intent(in) :: val !!$ integer(psb_ipk_), intent(in) :: val
integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_), intent(out) :: info
end subroutine amg_z_ainv_solver_seti !!$ end subroutine amg_z_ainv_solver_seti
end interface !!$ end interface
!!$
interface !!$ interface
subroutine amg_z_ainv_solver_setr(sv,what,val,info) !!$ subroutine amg_z_ainv_solver_setr(sv,what,val,info)
import :: amg_z_ainv_solver_type, psb_ipk_, psb_dpk_ !!$ import :: amg_z_ainv_solver_type, psb_ipk_, psb_dpk_
Implicit none !!$ Implicit none
! Arguments !!$ ! Arguments
class(amg_z_ainv_solver_type), intent(inout) :: sv !!$ class(amg_z_ainv_solver_type), intent(inout) :: sv
integer(psb_ipk_), intent(in) :: what !!$ integer(psb_ipk_), intent(in) :: what
real(psb_dpk_), intent(in) :: val !!$ real(psb_dpk_), intent(in) :: val
integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_), intent(out) :: info
end subroutine amg_z_ainv_solver_setr !!$ end subroutine amg_z_ainv_solver_setr
end interface !!$ end interface
interface interface
subroutine amg_z_ainv_solver_descr(sv,info,iout,coarse) subroutine amg_z_ainv_solver_descr(sv,info,iout,coarse)

13
amgprec/amg_z_invk_solver.f90
Unescape Escape View File

@ -51,7 +51,6 @@ module amg_z_invk_solver
procedure, pass(sv) :: clone => amg_z_invk_solver_clone procedure, pass(sv) :: clone => amg_z_invk_solver_clone
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) :: 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
@ -135,18 +134,6 @@ module amg_z_invk_solver
end subroutine amg_z_invk_solver_descr end subroutine amg_z_invk_solver_descr
end interface 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 contains
subroutine z_invk_solver_default(sv) subroutine z_invk_solver_default(sv)

26
amgprec/amg_z_invt_solver.f90
Unescape Escape View File

@ -52,8 +52,6 @@ module amg_z_invt_solver
procedure, pass(sv) :: build => amg_z_invt_solver_bld procedure, pass(sv) :: build => amg_z_invt_solver_bld
procedure, pass(sv) :: cseti => amg_z_invt_solver_cseti procedure, pass(sv) :: cseti => amg_z_invt_solver_cseti
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) :: setr => amg_z_invt_solver_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
@ -147,30 +145,6 @@ module amg_z_invt_solver
end subroutine amg_z_invt_solver_descr end subroutine amg_z_invt_solver_descr
end interface 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 contains
subroutine z_invt_solver_default(sv) subroutine z_invt_solver_default(sv)

26
amgprec/impl/solver/Makefile
Unescape Escape View File

@ -198,9 +198,6 @@ amg_s_ainv_solver_csetc.o \
amg_s_ainv_solver_cseti.o \ amg_s_ainv_solver_cseti.o \
amg_s_ainv_solver_csetr.o \ amg_s_ainv_solver_csetr.o \
amg_s_ainv_solver_descr.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_bld.o \
amg_d_ainv_solver_check.o \ amg_d_ainv_solver_check.o \
amg_d_ainv_solver_clone.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_cseti.o \
amg_d_ainv_solver_csetr.o \ amg_d_ainv_solver_csetr.o \
amg_d_ainv_solver_descr.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_bld.o \
amg_c_ainv_solver_check.o \ amg_c_ainv_solver_check.o \
amg_c_ainv_solver_clone.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_cseti.o \
amg_c_ainv_solver_csetr.o \ amg_c_ainv_solver_csetr.o \
amg_c_ainv_solver_descr.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_bld.o \
amg_z_ainv_solver_check.o \ amg_z_ainv_solver_check.o \
amg_z_ainv_solver_clone.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_cseti.o \
amg_z_ainv_solver_csetr.o \ amg_z_ainv_solver_csetr.o \
amg_z_ainv_solver_descr.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_vect.o \
amg_s_base_ainv_solver_apply.o \ amg_s_base_ainv_solver_apply.o \
amg_s_base_ainv_solver_cnv.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_cseti.o \
amg_d_invt_solver_csetr.o \ amg_d_invt_solver_csetr.o \
amg_d_invt_solver_descr.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_bld.o \
amg_d_invk_solver_check.o \ amg_d_invk_solver_check.o \
amg_d_invk_solver_clone.o \ amg_d_invk_solver_clone.o \
amg_d_invk_solver_cseti.o \ amg_d_invk_solver_cseti.o \
amg_d_invk_solver_descr.o \ amg_d_invk_solver_descr.o \
amg_d_invk_solver_seti.o \
amg_s_invt_solver_bld.o \ amg_s_invt_solver_bld.o \
amg_s_invt_solver_check.o \ amg_s_invt_solver_check.o \
amg_s_invt_solver_clone.o \ amg_s_invt_solver_clone.o \
amg_s_invt_solver_cseti.o \ amg_s_invt_solver_cseti.o \
amg_s_invt_solver_csetr.o \ amg_s_invt_solver_csetr.o \
amg_s_invt_solver_descr.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_bld.o \
amg_s_invk_solver_check.o \ amg_s_invk_solver_check.o \
amg_s_invk_solver_clone.o \ amg_s_invk_solver_clone.o \
amg_s_invk_solver_cseti.o \ amg_s_invk_solver_cseti.o \
amg_s_invk_solver_descr.o \ amg_s_invk_solver_descr.o \
amg_s_invk_solver_seti.o \
amg_c_invt_solver_bld.o \ amg_c_invt_solver_bld.o \
amg_c_invt_solver_check.o \ amg_c_invt_solver_check.o \
amg_c_invt_solver_clone.o \ amg_c_invt_solver_clone.o \
amg_c_invt_solver_cseti.o \ amg_c_invt_solver_cseti.o \
amg_c_invt_solver_csetr.o \ amg_c_invt_solver_csetr.o \
amg_c_invt_solver_descr.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_bld.o \
amg_c_invk_solver_check.o \ amg_c_invk_solver_check.o \
amg_c_invk_solver_clone.o \ amg_c_invk_solver_clone.o \
amg_c_invk_solver_cseti.o \ amg_c_invk_solver_cseti.o \
amg_c_invk_solver_descr.o \ amg_c_invk_solver_descr.o \
amg_c_invk_solver_seti.o \
amg_z_invt_solver_bld.o \ amg_z_invt_solver_bld.o \
amg_z_invt_solver_check.o \ amg_z_invt_solver_check.o \
amg_z_invt_solver_clone.o \ amg_z_invt_solver_clone.o \
amg_z_invt_solver_cseti.o \ amg_z_invt_solver_cseti.o \
amg_z_invt_solver_csetr.o \ amg_z_invt_solver_csetr.o \
amg_z_invt_solver_descr.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_bld.o \
amg_z_invk_solver_check.o \ amg_z_invk_solver_check.o \
amg_z_invk_solver_clone.o \ amg_z_invk_solver_clone.o \
amg_z_invk_solver_cseti.o \ amg_z_invk_solver_cseti.o \
amg_z_invk_solver_descr.o \ amg_z_invk_solver_descr.o
amg_z_invk_solver_seti.o
LIBNAME=libamg_prec.a LIBNAME=libamg_prec.a

Write Preview
Loading…
Cancel
Save