*** empty log message ***

13 years ago · 6d8b6d5f06
parent 8469715de9
commit 6d8b6d5f06
1 changed files with 3 additions and 3 deletions
--- 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