From 0436b0136f9efddfd7b417e2a7de07636b699787 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 18 Sep 2007 12:53:22 +0000 Subject: [PATCH] Fixed target attribute in mld_aggrmap_bld --- mld_prec_mod.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mld_prec_mod.f90 b/mld_prec_mod.f90 index 04282419..7bf1fe31 100644 --- a/mld_prec_mod.f90 +++ b/mld_prec_mod.f90 @@ -492,7 +492,7 @@ module mld_prec_mod use psb_base_mod use mld_prec_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 integer, allocatable :: ilaggr(:),nlaggr(:) integer, intent(out) :: info @@ -501,7 +501,7 @@ module mld_prec_mod use psb_base_mod use mld_prec_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 integer, allocatable :: ilaggr(:),nlaggr(:) integer, intent(out) :: info