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

Fix misspelling.

Browse Source
stopcriterion
Salvatore Filippone 5 years ago
parent 81c2639d93
commit ab54fc0647
4 changed files with 128 additions and 0 deletions
Show Stats Download Patch File Download Diff File

32
mlprec/mld_c_base_aggregator_mod.f90
Unescape Escape View File

@ -93,12 +93,15 @@ module mld_c_base_aggregator_mod
procedure, pass(ag) :: free => mld_c_base_aggregator_free procedure, pass(ag) :: free => mld_c_base_aggregator_free
procedure, pass(ag) :: default => mld_c_base_aggregator_default procedure, pass(ag) :: default => mld_c_base_aggregator_default
procedure, pass(ag) :: descr => mld_c_base_aggregator_descr procedure, pass(ag) :: descr => mld_c_base_aggregator_descr
procedure, pass(ag) :: sizeof => mld_c_base_aggregator_sizeof
procedure, pass(ag) :: set_aggr_type => mld_c_base_aggregator_set_aggr_type procedure, pass(ag) :: set_aggr_type => mld_c_base_aggregator_set_aggr_type
procedure, nopass :: fmt => mld_c_base_aggregator_fmt procedure, nopass :: fmt => mld_c_base_aggregator_fmt
procedure, pass(ag) :: cseti => mld_c_base_aggregator_cseti procedure, pass(ag) :: cseti => mld_c_base_aggregator_cseti
procedure, pass(ag) :: csetr => mld_c_base_aggregator_csetr procedure, pass(ag) :: csetr => mld_c_base_aggregator_csetr
procedure, pass(ag) :: csetc => mld_c_base_aggregator_csetc procedure, pass(ag) :: csetc => mld_c_base_aggregator_csetc
generic, public :: set => cseti, csetr, csetc generic, public :: set => cseti, csetr, csetc
procedure, nopass :: xt_desc => mld_c_base_aggregator_xt_desc
procedure, pass(ag) :: backfix => mld_c_base_aggregator_backfix
end type mld_c_base_aggregator_type end type mld_c_base_aggregator_type
abstract interface abstract interface
@ -221,6 +224,35 @@ contains
val = "Default aggregator " val = "Default aggregator "
end function mld_c_base_aggregator_fmt end function mld_c_base_aggregator_fmt
function mld_c_base_aggregator_sizeof(ag) result(val)
implicit none
class(mld_c_base_aggregator_type), intent(in) :: ag
integer(psb_epk_) :: val
val = 1
end function mld_c_base_aggregator_sizeof
function mld_c_base_aggregator_xt_desc() result(val)
implicit none
logical :: val
val = .false.
end function mld_c_base_aggregator_xt_desc
subroutine mld_c_base_aggregator_backfix(ag,base_a,ac,base_desc,desc_ac,info)
implicit none
class(mld_c_base_aggregator_type), intent(inout) :: ag
type(psb_cspmat_type), pointer :: base_a
type(psb_cspmat_type), intent(inout), target :: ac
type(psb_desc_type), pointer :: base_desc
type(psb_desc_type), intent(inout), target :: desc_ac
integer(psb_ipk_), intent(out) :: info
! Base version is to do nothing.
info = psb_success_
end subroutine mld_c_base_aggregator_backfix
subroutine mld_c_base_aggregator_descr(ag,parms,iout,info) subroutine mld_c_base_aggregator_descr(ag,parms,iout,info)
implicit none implicit none
class(mld_c_base_aggregator_type), intent(in) :: ag class(mld_c_base_aggregator_type), intent(in) :: ag

32
mlprec/mld_d_base_aggregator_mod.f90
Unescape Escape View File

@ -93,12 +93,15 @@ module mld_d_base_aggregator_mod
procedure, pass(ag) :: free => mld_d_base_aggregator_free procedure, pass(ag) :: free => mld_d_base_aggregator_free
procedure, pass(ag) :: default => mld_d_base_aggregator_default procedure, pass(ag) :: default => mld_d_base_aggregator_default
procedure, pass(ag) :: descr => mld_d_base_aggregator_descr procedure, pass(ag) :: descr => mld_d_base_aggregator_descr
procedure, pass(ag) :: sizeof => mld_d_base_aggregator_sizeof
procedure, pass(ag) :: set_aggr_type => mld_d_base_aggregator_set_aggr_type procedure, pass(ag) :: set_aggr_type => mld_d_base_aggregator_set_aggr_type
procedure, nopass :: fmt => mld_d_base_aggregator_fmt procedure, nopass :: fmt => mld_d_base_aggregator_fmt
procedure, pass(ag) :: cseti => mld_d_base_aggregator_cseti procedure, pass(ag) :: cseti => mld_d_base_aggregator_cseti
procedure, pass(ag) :: csetr => mld_d_base_aggregator_csetr procedure, pass(ag) :: csetr => mld_d_base_aggregator_csetr
procedure, pass(ag) :: csetc => mld_d_base_aggregator_csetc procedure, pass(ag) :: csetc => mld_d_base_aggregator_csetc
generic, public :: set => cseti, csetr, csetc generic, public :: set => cseti, csetr, csetc
procedure, nopass :: xt_desc => mld_d_base_aggregator_xt_desc
procedure, pass(ag) :: backfix => mld_d_base_aggregator_backfix
end type mld_d_base_aggregator_type end type mld_d_base_aggregator_type
abstract interface abstract interface
@ -221,6 +224,35 @@ contains
val = "Default aggregator " val = "Default aggregator "
end function mld_d_base_aggregator_fmt end function mld_d_base_aggregator_fmt
function mld_d_base_aggregator_sizeof(ag) result(val)
implicit none
class(mld_d_base_aggregator_type), intent(in) :: ag
integer(psb_epk_) :: val
val = 1
end function mld_d_base_aggregator_sizeof
function mld_d_base_aggregator_xt_desc() result(val)
implicit none
logical :: val
val = .false.
end function mld_d_base_aggregator_xt_desc
subroutine mld_d_base_aggregator_backfix(ag,base_a,ac,base_desc,desc_ac,info)
implicit none
class(mld_d_base_aggregator_type), intent(inout) :: ag
type(psb_dspmat_type), pointer :: base_a
type(psb_dspmat_type), intent(inout), target :: ac
type(psb_desc_type), pointer :: base_desc
type(psb_desc_type), intent(inout), target :: desc_ac
integer(psb_ipk_), intent(out) :: info
! Base version is to do nothing.
info = psb_success_
end subroutine mld_d_base_aggregator_backfix
subroutine mld_d_base_aggregator_descr(ag,parms,iout,info) subroutine mld_d_base_aggregator_descr(ag,parms,iout,info)
implicit none implicit none
class(mld_d_base_aggregator_type), intent(in) :: ag class(mld_d_base_aggregator_type), intent(in) :: ag

32
mlprec/mld_s_base_aggregator_mod.f90
Unescape Escape View File

@ -93,12 +93,15 @@ module mld_s_base_aggregator_mod
procedure, pass(ag) :: free => mld_s_base_aggregator_free procedure, pass(ag) :: free => mld_s_base_aggregator_free
procedure, pass(ag) :: default => mld_s_base_aggregator_default procedure, pass(ag) :: default => mld_s_base_aggregator_default
procedure, pass(ag) :: descr => mld_s_base_aggregator_descr procedure, pass(ag) :: descr => mld_s_base_aggregator_descr
procedure, pass(ag) :: sizeof => mld_s_base_aggregator_sizeof
procedure, pass(ag) :: set_aggr_type => mld_s_base_aggregator_set_aggr_type procedure, pass(ag) :: set_aggr_type => mld_s_base_aggregator_set_aggr_type
procedure, nopass :: fmt => mld_s_base_aggregator_fmt procedure, nopass :: fmt => mld_s_base_aggregator_fmt
procedure, pass(ag) :: cseti => mld_s_base_aggregator_cseti procedure, pass(ag) :: cseti => mld_s_base_aggregator_cseti
procedure, pass(ag) :: csetr => mld_s_base_aggregator_csetr procedure, pass(ag) :: csetr => mld_s_base_aggregator_csetr
procedure, pass(ag) :: csetc => mld_s_base_aggregator_csetc procedure, pass(ag) :: csetc => mld_s_base_aggregator_csetc
generic, public :: set => cseti, csetr, csetc generic, public :: set => cseti, csetr, csetc
procedure, nopass :: xt_desc => mld_s_base_aggregator_xt_desc
procedure, pass(ag) :: backfix => mld_s_base_aggregator_backfix
end type mld_s_base_aggregator_type end type mld_s_base_aggregator_type
abstract interface abstract interface
@ -221,6 +224,35 @@ contains
val = "Default aggregator " val = "Default aggregator "
end function mld_s_base_aggregator_fmt end function mld_s_base_aggregator_fmt
function mld_s_base_aggregator_sizeof(ag) result(val)
implicit none
class(mld_s_base_aggregator_type), intent(in) :: ag
integer(psb_epk_) :: val
val = 1
end function mld_s_base_aggregator_sizeof
function mld_s_base_aggregator_xt_desc() result(val)
implicit none
logical :: val
val = .false.
end function mld_s_base_aggregator_xt_desc
subroutine mld_s_base_aggregator_backfix(ag,base_a,ac,base_desc,desc_ac,info)
implicit none
class(mld_s_base_aggregator_type), intent(inout) :: ag
type(psb_sspmat_type), pointer :: base_a
type(psb_sspmat_type), intent(inout), target :: ac
type(psb_desc_type), pointer :: base_desc
type(psb_desc_type), intent(inout), target :: desc_ac
integer(psb_ipk_), intent(out) :: info
! Base version is to do nothing.
info = psb_success_
end subroutine mld_s_base_aggregator_backfix
subroutine mld_s_base_aggregator_descr(ag,parms,iout,info) subroutine mld_s_base_aggregator_descr(ag,parms,iout,info)
implicit none implicit none
class(mld_s_base_aggregator_type), intent(in) :: ag class(mld_s_base_aggregator_type), intent(in) :: ag

32
mlprec/mld_z_base_aggregator_mod.f90
Unescape Escape View File

@ -93,12 +93,15 @@ module mld_z_base_aggregator_mod
procedure, pass(ag) :: free => mld_z_base_aggregator_free procedure, pass(ag) :: free => mld_z_base_aggregator_free
procedure, pass(ag) :: default => mld_z_base_aggregator_default procedure, pass(ag) :: default => mld_z_base_aggregator_default
procedure, pass(ag) :: descr => mld_z_base_aggregator_descr procedure, pass(ag) :: descr => mld_z_base_aggregator_descr
procedure, pass(ag) :: sizeof => mld_z_base_aggregator_sizeof
procedure, pass(ag) :: set_aggr_type => mld_z_base_aggregator_set_aggr_type procedure, pass(ag) :: set_aggr_type => mld_z_base_aggregator_set_aggr_type
procedure, nopass :: fmt => mld_z_base_aggregator_fmt procedure, nopass :: fmt => mld_z_base_aggregator_fmt
procedure, pass(ag) :: cseti => mld_z_base_aggregator_cseti procedure, pass(ag) :: cseti => mld_z_base_aggregator_cseti
procedure, pass(ag) :: csetr => mld_z_base_aggregator_csetr procedure, pass(ag) :: csetr => mld_z_base_aggregator_csetr
procedure, pass(ag) :: csetc => mld_z_base_aggregator_csetc procedure, pass(ag) :: csetc => mld_z_base_aggregator_csetc
generic, public :: set => cseti, csetr, csetc generic, public :: set => cseti, csetr, csetc
procedure, nopass :: xt_desc => mld_z_base_aggregator_xt_desc
procedure, pass(ag) :: backfix => mld_z_base_aggregator_backfix
end type mld_z_base_aggregator_type end type mld_z_base_aggregator_type
abstract interface abstract interface
@ -221,6 +224,35 @@ contains
val = "Default aggregator " val = "Default aggregator "
end function mld_z_base_aggregator_fmt end function mld_z_base_aggregator_fmt
function mld_z_base_aggregator_sizeof(ag) result(val)
implicit none
class(mld_z_base_aggregator_type), intent(in) :: ag
integer(psb_epk_) :: val
val = 1
end function mld_z_base_aggregator_sizeof
function mld_z_base_aggregator_xt_desc() result(val)
implicit none
logical :: val
val = .false.
end function mld_z_base_aggregator_xt_desc
subroutine mld_z_base_aggregator_backfix(ag,base_a,ac,base_desc,desc_ac,info)
implicit none
class(mld_z_base_aggregator_type), intent(inout) :: ag
type(psb_zspmat_type), pointer :: base_a
type(psb_zspmat_type), intent(inout), target :: ac
type(psb_desc_type), pointer :: base_desc
type(psb_desc_type), intent(inout), target :: desc_ac
integer(psb_ipk_), intent(out) :: info
! Base version is to do nothing.
info = psb_success_
end subroutine mld_z_base_aggregator_backfix
subroutine mld_z_base_aggregator_descr(ag,parms,iout,info) subroutine mld_z_base_aggregator_descr(ag,parms,iout,info)
implicit none implicit none
class(mld_z_base_aggregator_type), intent(in) :: ag class(mld_z_base_aggregator_type), intent(in) :: ag

Write Preview
Loading…
Cancel
Save