fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-20 21:02:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

New ICTXT argument in precinit.

Browse Source
This commit is contained in:
Salvatore Filippone
2018-10-10 14:46:51 +01:00
parent 77f5b43b4c
commit 1527c5e1c2
8 changed files with 24 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/mld_cprecinit.F90
+3 -1
View File
@@ -83,7 +83,7 @@
! info - integer, output.
! Error code.
!
subroutine mld_cprecinit(prec,ptype,info)
subroutine mld_cprecinit(ictxt,prec,ptype,info)
use psb_base_mod
use mld_c_prec_mod, mld_protect_name => mld_cprecinit
@@ -101,6 +101,7 @@ subroutine mld_cprecinit(prec,ptype,info)
implicit none
! Arguments
integer(psb_ipk_), intent(in) :: ictxt
class(mld_cprec_type), intent(inout) :: prec
character(len=*), intent(in) :: ptype
integer(psb_ipk_), intent(out) :: info
@@ -117,6 +118,7 @@ subroutine mld_cprecinit(prec,ptype,info)
! Do we want to do something?
endif
endif
prec%ictxt = ictxt
prec%min_coarse_size = -1
select case(psb_toupper(ptype(1:len_trim(ptype))))
mlprec/impl/mld_dprecinit.F90
+3 -1
View File
@@ -83,7 +83,7 @@
! info - integer, output.
! Error code.
!
subroutine mld_dprecinit(prec,ptype,info)
subroutine mld_dprecinit(ictxt,prec,ptype,info)
use psb_base_mod
use mld_d_prec_mod, mld_protect_name => mld_dprecinit
@@ -104,6 +104,7 @@ subroutine mld_dprecinit(prec,ptype,info)
implicit none
! Arguments
integer(psb_ipk_), intent(in) :: ictxt
class(mld_dprec_type), intent(inout) :: prec
character(len=*), intent(in) :: ptype
integer(psb_ipk_), intent(out) :: info
@@ -120,6 +121,7 @@ subroutine mld_dprecinit(prec,ptype,info)
! Do we want to do something?
endif
endif
prec%ictxt = ictxt
prec%min_coarse_size = -1
select case(psb_toupper(ptype(1:len_trim(ptype))))
mlprec/impl/mld_sprecinit.F90
+3 -1
View File
@@ -83,7 +83,7 @@
! info - integer, output.
! Error code.
!
subroutine mld_sprecinit(prec,ptype,info)
subroutine mld_sprecinit(ictxt,prec,ptype,info)
use psb_base_mod
use mld_s_prec_mod, mld_protect_name => mld_sprecinit
@@ -101,6 +101,7 @@ subroutine mld_sprecinit(prec,ptype,info)
implicit none
! Arguments
integer(psb_ipk_), intent(in) :: ictxt
class(mld_sprec_type), intent(inout) :: prec
character(len=*), intent(in) :: ptype
integer(psb_ipk_), intent(out) :: info
@@ -117,6 +118,7 @@ subroutine mld_sprecinit(prec,ptype,info)
! Do we want to do something?
endif
endif
prec%ictxt = ictxt
prec%min_coarse_size = -1
select case(psb_toupper(ptype(1:len_trim(ptype))))
mlprec/impl/mld_zprecinit.F90
+3 -1
View File
@@ -83,7 +83,7 @@
! info - integer, output.
! Error code.
!
subroutine mld_zprecinit(prec,ptype,info)
subroutine mld_zprecinit(ictxt,prec,ptype,info)
use psb_base_mod
use mld_z_prec_mod, mld_protect_name => mld_zprecinit
@@ -104,6 +104,7 @@ subroutine mld_zprecinit(prec,ptype,info)
implicit none
! Arguments
integer(psb_ipk_), intent(in) :: ictxt
class(mld_zprec_type), intent(inout) :: prec
character(len=*), intent(in) :: ptype
integer(psb_ipk_), intent(out) :: info
@@ -120,6 +121,7 @@ subroutine mld_zprecinit(prec,ptype,info)
! Do we want to do something?
endif
endif
prec%ictxt = ictxt
prec%min_coarse_size = -1
select case(psb_toupper(ptype(1:len_trim(ptype))))
mlprec/mld_c_prec_type.f90
+3 -2
View File
@@ -84,7 +84,7 @@ module mld_c_prec_type
integer, parameter, private :: wv_size_=4
type, extends(psb_cprec_type) :: mld_cprec_type
integer(psb_ipk_) :: ictxt
! integer(psb_ipk_) :: ictxt ! Now it's in the PSBLAS prec.
!
! Aggregation defaults:
!
@@ -278,9 +278,10 @@ module mld_c_prec_type
end interface
interface mld_precinit
subroutine mld_cprecinit(prec,ptype,info)
subroutine mld_cprecinit(ictxt,prec,ptype,info)
import :: psb_cspmat_type, psb_desc_type, psb_spk_, &
& mld_cprec_type, psb_ipk_
integer(psb_ipk_), intent(in) :: ictxt
class(mld_cprec_type), intent(inout) :: prec
character(len=*), intent(in) :: ptype
integer(psb_ipk_), intent(out) :: info
mlprec/mld_d_prec_type.f90
+3 -2
View File
@@ -84,7 +84,7 @@ module mld_d_prec_type
integer, parameter, private :: wv_size_=4
type, extends(psb_dprec_type) :: mld_dprec_type
integer(psb_ipk_) :: ictxt
! integer(psb_ipk_) :: ictxt ! Now it's in the PSBLAS prec.
!
! Aggregation defaults:
!
@@ -278,9 +278,10 @@ module mld_d_prec_type
end interface
interface mld_precinit
subroutine mld_dprecinit(prec,ptype,info)
subroutine mld_dprecinit(ictxt,prec,ptype,info)
import :: psb_dspmat_type, psb_desc_type, psb_dpk_, &
& mld_dprec_type, psb_ipk_
integer(psb_ipk_), intent(in) :: ictxt
class(mld_dprec_type), intent(inout) :: prec
character(len=*), intent(in) :: ptype
integer(psb_ipk_), intent(out) :: info
mlprec/mld_s_prec_type.f90
+3 -2
View File
@@ -84,7 +84,7 @@ module mld_s_prec_type
integer, parameter, private :: wv_size_=4
type, extends(psb_sprec_type) :: mld_sprec_type
integer(psb_ipk_) :: ictxt
! integer(psb_ipk_) :: ictxt ! Now it's in the PSBLAS prec.
!
! Aggregation defaults:
!
@@ -278,9 +278,10 @@ module mld_s_prec_type
end interface
interface mld_precinit
subroutine mld_sprecinit(prec,ptype,info)
subroutine mld_sprecinit(ictxt,prec,ptype,info)
import :: psb_sspmat_type, psb_desc_type, psb_spk_, &
& mld_sprec_type, psb_ipk_
integer(psb_ipk_), intent(in) :: ictxt
class(mld_sprec_type), intent(inout) :: prec
character(len=*), intent(in) :: ptype
integer(psb_ipk_), intent(out) :: info
mlprec/mld_z_prec_type.f90
+3 -2
View File
@@ -84,7 +84,7 @@ module mld_z_prec_type
integer, parameter, private :: wv_size_=4
type, extends(psb_zprec_type) :: mld_zprec_type
integer(psb_ipk_) :: ictxt
! integer(psb_ipk_) :: ictxt ! Now it's in the PSBLAS prec.
!
! Aggregation defaults:
!
@@ -278,9 +278,10 @@ module mld_z_prec_type
end interface
interface mld_precinit
subroutine mld_zprecinit(prec,ptype,info)
subroutine mld_zprecinit(ictxt,prec,ptype,info)
import :: psb_zspmat_type, psb_desc_type, psb_dpk_, &
& mld_zprec_type, psb_ipk_
integer(psb_ipk_), intent(in) :: ictxt
class(mld_zprec_type), intent(inout) :: prec
character(len=*), intent(in) :: ptype
integer(psb_ipk_), intent(out) :: info