Fixed intent of variables in module inner_mod

mlprec/mld_c_inner_mod.f90

@@ -117,7 +117,8 @@ module mld_c_inner_mod
       type(psb_desc_type), intent(in)               :: desc_a
       integer(psb_lpk_), intent(inout)              :: ilaggr(:), nlaggr(:)
       type(mld_sml_parms), intent(inout)         :: parms 
-      type(psb_lcspmat_type), intent(out)          :: ac,op_prol,op_restr
+      type(psb_lcspmat_type), intent(inout)        :: op_prol
+      type(psb_lcspmat_type), intent(out)          :: ac,op_restr
       integer(psb_ipk_), intent(out)                :: info
     end subroutine mld_caggrmat_var_bld
   end interface

mlprec/mld_d_inner_mod.f90

@@ -117,7 +117,8 @@ module mld_d_inner_mod
       type(psb_desc_type), intent(in)               :: desc_a
       integer(psb_lpk_), intent(inout)              :: ilaggr(:), nlaggr(:)
       type(mld_dml_parms), intent(inout)         :: parms 
-      type(psb_ldspmat_type), intent(out)          :: ac,op_prol,op_restr
+      type(psb_ldspmat_type), intent(inout)        :: op_prol
+      type(psb_ldspmat_type), intent(out)          :: ac,op_restr
       integer(psb_ipk_), intent(out)                :: info
     end subroutine mld_daggrmat_var_bld
   end interface

mlprec/mld_s_inner_mod.f90

@@ -117,7 +117,8 @@ module mld_s_inner_mod
       type(psb_desc_type), intent(in)               :: desc_a
       integer(psb_lpk_), intent(inout)              :: ilaggr(:), nlaggr(:)
       type(mld_sml_parms), intent(inout)         :: parms 
-      type(psb_lsspmat_type), intent(out)          :: ac,op_prol,op_restr
+      type(psb_lsspmat_type), intent(inout)        :: op_prol
+      type(psb_lsspmat_type), intent(out)          :: ac,op_restr
       integer(psb_ipk_), intent(out)                :: info
     end subroutine mld_saggrmat_var_bld
   end interface

mlprec/mld_z_inner_mod.f90

@@ -117,7 +117,8 @@ module mld_z_inner_mod
       type(psb_desc_type), intent(in)               :: desc_a
       integer(psb_lpk_), intent(inout)              :: ilaggr(:), nlaggr(:)
       type(mld_dml_parms), intent(inout)         :: parms 
-      type(psb_lzspmat_type), intent(out)          :: ac,op_prol,op_restr
+      type(psb_lzspmat_type), intent(inout)        :: op_prol
+      type(psb_lzspmat_type), intent(out)          :: ac,op_restr
       integer(psb_ipk_), intent(out)                :: info
     end subroutine mld_zaggrmat_var_bld
   end interface