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

Fixed target attribute in mld_aggrmap_bld

Browse Source
stopcriterion
Salvatore Filippone 17 years ago
parent 6da504d2b2
commit 0436b0136f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File

4
mld_prec_mod.f90
Unescape Escape View File

@ -492,7 +492,7 @@ module mld_prec_mod
use psb_base_mod use psb_base_mod
use mld_prec_type use mld_prec_type
integer, intent(in) :: aggr_type integer, intent(in) :: aggr_type
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
integer, allocatable :: ilaggr(:),nlaggr(:) integer, allocatable :: ilaggr(:),nlaggr(:)
integer, intent(out) :: info integer, intent(out) :: info
@ -501,7 +501,7 @@ module mld_prec_mod
use psb_base_mod use psb_base_mod
use mld_prec_type use mld_prec_type
integer, intent(in) :: aggr_type integer, intent(in) :: aggr_type
type(psb_zspmat_type), intent(in) :: a type(psb_zspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
integer, allocatable :: ilaggr(:),nlaggr(:) integer, allocatable :: ilaggr(:),nlaggr(:)
integer, intent(out) :: info integer, intent(out) :: info

Write Preview
Loading…
Cancel
Save