mld2p4-2:

mlprec/mld_c_inner_mod.f90
 mlprec/mld_d_inner_mod.f90
 mlprec/mld_s_inner_mod.f90
 mlprec/mld_z_inner_mod.f90

Fix minor INTENT inconsistency

mlprec/mld_c_inner_mod.f90

@@ -71,7 +71,7 @@ module mld_c_inner_mod
       use mld_c_prec_type, only : mld_cprec_type
       implicit none 
       type(psb_desc_type),intent(in)        :: desc_data
-      type(mld_cprec_type), intent(in) :: p
+      type(mld_cprec_type), intent(inout) :: p
       complex(psb_spk_),intent(in)         :: alpha,beta
       complex(psb_spk_),intent(inout)      :: x(:)
       complex(psb_spk_),intent(inout)      :: y(:)

mlprec/mld_d_inner_mod.f90

@@ -71,7 +71,7 @@ module mld_d_inner_mod
       use mld_d_prec_type, only : mld_dprec_type
       implicit none 
       type(psb_desc_type),intent(in)        :: desc_data
-      type(mld_dprec_type), intent(in) :: p
+      type(mld_dprec_type), intent(inout) :: p
       real(psb_dpk_),intent(in)         :: alpha,beta
       real(psb_dpk_),intent(inout)      :: x(:)
       real(psb_dpk_),intent(inout)      :: y(:)

mlprec/mld_s_inner_mod.f90

@@ -71,7 +71,7 @@ module mld_s_inner_mod
       use mld_s_prec_type, only : mld_sprec_type
       implicit none 
       type(psb_desc_type),intent(in)        :: desc_data
-      type(mld_sprec_type), intent(in) :: p
+      type(mld_sprec_type), intent(inout) :: p
       real(psb_spk_),intent(in)         :: alpha,beta
       real(psb_spk_),intent(inout)      :: x(:)
       real(psb_spk_),intent(inout)      :: y(:)

mlprec/mld_z_inner_mod.f90

@@ -71,7 +71,7 @@ module mld_z_inner_mod
       use mld_z_prec_type, only : mld_zprec_type
       implicit none 
       type(psb_desc_type),intent(in)        :: desc_data
-      type(mld_zprec_type), intent(in) :: p
+      type(mld_zprec_type), intent(inout) :: p
       complex(psb_dpk_),intent(in)         :: alpha,beta
       complex(psb_dpk_),intent(inout)      :: x(:)
       complex(psb_dpk_),intent(inout)      :: y(:)