From 6d8b6d5f068b83b573e81b575305630137f53176 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 14 Nov 2011 16:00:01 +0000 Subject: [PATCH] *** empty log message *** --- mlprec/mld_s_inner_mod.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/mlprec/mld_s_inner_mod.f90 b/mlprec/mld_s_inner_mod.f90 index 2a049ec8..ae08ef4a 100644 --- a/mlprec/mld_s_inner_mod.f90 +++ b/mlprec/mld_s_inner_mod.f90 @@ -83,10 +83,10 @@ module mld_s_inner_mod subroutine mld_scoarse_bld(a,desc_a,p,info) use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use mld_s_prec_type, only : mld_sonelev_type - type(psb_sspmat_type), intent(in) :: a - type(psb_desc_type), intent(in) :: desc_a + type(psb_sspmat_type), intent(in), target :: a + type(psb_desc_type), intent(in), target :: desc_a type(mld_sonelev_type), intent(inout), target :: p - integer, intent(out) :: info + integer, intent(out) :: info end subroutine mld_scoarse_bld end interface mld_coarse_bld