fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix SETAG interface with ILMAX

Browse Source
This commit is contained in:
Salvatore Filippone
2018-10-09 16:16:38 +01:00
parent c64eef2eb1
commit 77f5b43b4c
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_c_prec_type.f90
+2 -2
View File
@@ -236,13 +236,13 @@ module mld_c_prec_type
integer(psb_ipk_), optional, intent(in) :: ilev,ilmax
character(len=*), optional, intent(in) :: pos
end subroutine mld_cprecsetsv
subroutine mld_cprecsetag(prec,val,info,ilev,pos)
subroutine mld_cprecsetag(prec,val,info,ilev,ilmax,pos)
import :: psb_cspmat_type, psb_desc_type, psb_spk_, &
& mld_cprec_type, mld_c_base_aggregator_type, psb_ipk_
class(mld_cprec_type), intent(inout) :: prec
class(mld_c_base_aggregator_type), intent(in) :: val
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), optional, intent(in) :: ilev
integer(psb_ipk_), optional, intent(in) :: ilev,ilmax
character(len=*), optional, intent(in) :: pos
end subroutine mld_cprecsetag
subroutine mld_ccprecseti(prec,what,val,info,ilev,ilmax,pos,idx)
mlprec/mld_d_prec_type.f90
+2 -2
View File
@@ -236,13 +236,13 @@ module mld_d_prec_type
integer(psb_ipk_), optional, intent(in) :: ilev,ilmax
character(len=*), optional, intent(in) :: pos
end subroutine mld_dprecsetsv
subroutine mld_dprecsetag(prec,val,info,ilev,pos)
subroutine mld_dprecsetag(prec,val,info,ilev,ilmax,pos)
import :: psb_dspmat_type, psb_desc_type, psb_dpk_, &
& mld_dprec_type, mld_d_base_aggregator_type, psb_ipk_
class(mld_dprec_type), intent(inout) :: prec
class(mld_d_base_aggregator_type), intent(in) :: val
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), optional, intent(in) :: ilev
integer(psb_ipk_), optional, intent(in) :: ilev,ilmax
character(len=*), optional, intent(in) :: pos
end subroutine mld_dprecsetag
subroutine mld_dcprecseti(prec,what,val,info,ilev,ilmax,pos,idx)
mlprec/mld_s_prec_type.f90
+2 -2
View File
@@ -236,13 +236,13 @@ module mld_s_prec_type
integer(psb_ipk_), optional, intent(in) :: ilev,ilmax
character(len=*), optional, intent(in) :: pos
end subroutine mld_sprecsetsv
subroutine mld_sprecsetag(prec,val,info,ilev,pos)
subroutine mld_sprecsetag(prec,val,info,ilev,ilmax,pos)
import :: psb_sspmat_type, psb_desc_type, psb_spk_, &
& mld_sprec_type, mld_s_base_aggregator_type, psb_ipk_
class(mld_sprec_type), intent(inout) :: prec
class(mld_s_base_aggregator_type), intent(in) :: val
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), optional, intent(in) :: ilev
integer(psb_ipk_), optional, intent(in) :: ilev,ilmax
character(len=*), optional, intent(in) :: pos
end subroutine mld_sprecsetag
subroutine mld_scprecseti(prec,what,val,info,ilev,ilmax,pos,idx)
mlprec/mld_z_prec_type.f90
+2 -2
View File
@@ -236,13 +236,13 @@ module mld_z_prec_type
integer(psb_ipk_), optional, intent(in) :: ilev,ilmax
character(len=*), optional, intent(in) :: pos
end subroutine mld_zprecsetsv
subroutine mld_zprecsetag(prec,val,info,ilev,pos)
subroutine mld_zprecsetag(prec,val,info,ilev,ilmax,pos)
import :: psb_zspmat_type, psb_desc_type, psb_dpk_, &
& mld_zprec_type, mld_z_base_aggregator_type, psb_ipk_
class(mld_zprec_type), intent(inout) :: prec
class(mld_z_base_aggregator_type), intent(in) :: val
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), optional, intent(in) :: ilev
integer(psb_ipk_), optional, intent(in) :: ilev,ilmax
character(len=*), optional, intent(in) :: pos
end subroutine mld_zprecsetag
subroutine mld_zcprecseti(prec,what,val,info,ilev,ilmax,pos,idx)