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 intent for op_prol in inner_mod:var_bld

Browse Source
This commit is contained in:
Salvatore Filippone
2020-03-31 11:43:16 +02:00
parent d57c46e78b
commit 1b862e3dcc
4 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_c_inner_mod.f90
+2 -1
View File
@@ -117,7 +117,8 @@ module mld_c_inner_mod
type(psb_desc_type), intent(in) :: desc_a
integer(psb_lpk_), intent(inout) :: ilaggr(:), nlaggr(:)
type(mld_sml_parms), intent(inout) :: parms
type(psb_lcspmat_type), intent(out) :: ac,op_prol,op_restr
type(psb_lcspmat_type), intent(inout) :: op_prol
type(psb_lcspmat_type), intent(out) :: ac,op_restr
integer(psb_ipk_), intent(out) :: info
end subroutine mld_caggrmat_var_bld
end interface
mlprec/mld_d_inner_mod.f90
+2 -1
View File
@@ -117,7 +117,8 @@ module mld_d_inner_mod
type(psb_desc_type), intent(in) :: desc_a
integer(psb_lpk_), intent(inout) :: ilaggr(:), nlaggr(:)
type(mld_dml_parms), intent(inout) :: parms
type(psb_ldspmat_type), intent(out) :: ac,op_prol,op_restr
type(psb_ldspmat_type), intent(inout) :: op_prol
type(psb_ldspmat_type), intent(out) :: ac,op_restr
integer(psb_ipk_), intent(out) :: info
end subroutine mld_daggrmat_var_bld
end interface
mlprec/mld_s_inner_mod.f90
+2 -1
View File
@@ -117,7 +117,8 @@ module mld_s_inner_mod
type(psb_desc_type), intent(in) :: desc_a
integer(psb_lpk_), intent(inout) :: ilaggr(:), nlaggr(:)
type(mld_sml_parms), intent(inout) :: parms
type(psb_lsspmat_type), intent(out) :: ac,op_prol,op_restr
type(psb_lsspmat_type), intent(inout) :: op_prol
type(psb_lsspmat_type), intent(out) :: ac,op_restr
integer(psb_ipk_), intent(out) :: info
end subroutine mld_saggrmat_var_bld
end interface
mlprec/mld_z_inner_mod.f90
+2 -1
View File
@@ -117,7 +117,8 @@ module mld_z_inner_mod
type(psb_desc_type), intent(in) :: desc_a
integer(psb_lpk_), intent(inout) :: ilaggr(:), nlaggr(:)
type(mld_dml_parms), intent(inout) :: parms
type(psb_lzspmat_type), intent(out) :: ac,op_prol,op_restr
type(psb_lzspmat_type), intent(inout) :: op_prol
type(psb_lzspmat_type), intent(out) :: ac,op_restr
integer(psb_ipk_), intent(out) :: info
end subroutine mld_zaggrmat_var_bld
end interface