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

@@ -70,8 +70,8 @@ module mld_c_inner_mod
       use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_, psb_ipk_
       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(psb_desc_type),intent(in)        :: desc_data
+      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

@@ -70,8 +70,8 @@ module mld_d_inner_mod
       use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_, psb_ipk_
       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(psb_desc_type),intent(in)        :: desc_data
+      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

@@ -70,8 +70,8 @@ module mld_s_inner_mod
       use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_, psb_ipk_
       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(psb_desc_type),intent(in)        :: desc_data
+      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

@@ -70,8 +70,8 @@ module mld_z_inner_mod
       use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_, psb_ipk_
       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(psb_desc_type),intent(in)        :: desc_data
+      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(:)