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

*** empty log message ***

Browse Source
stopcriterion
Salvatore Filippone 13 years ago
parent 8469715de9
commit 6d8b6d5f06
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File

6
mlprec/mld_s_inner_mod.f90
Unescape Escape View File

@ -83,10 +83,10 @@ module mld_s_inner_mod
subroutine mld_scoarse_bld(a,desc_a,p,info) subroutine mld_scoarse_bld(a,desc_a,p,info)
use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sonelev_type use mld_s_prec_type, only : mld_sonelev_type
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in), target :: desc_a
type(mld_sonelev_type), intent(inout), target :: p type(mld_sonelev_type), intent(inout), target :: p
integer, intent(out) :: info integer, intent(out) :: info
end subroutine mld_scoarse_bld end subroutine mld_scoarse_bld
end interface mld_coarse_bld end interface mld_coarse_bld

Write Preview
Loading…
Cancel
Save