mld2p4-2:

mlprec/mld_c_prec_type.f90
 mlprec/mld_cprecaply.f90
 mlprec/mld_d_prec_type.f90
 mlprec/mld_s_prec_type.f90
 mlprec/mld_z_prec_type.f90

Inconsistent interface in precaply.

mlprec/mld_c_prec_type.f90

@@ -133,7 +133,7 @@ module mld_c_prec_type
       import mld_cprec_type
       type(psb_desc_type),intent(in)   :: desc_data
       type(mld_cprec_type), intent(in) :: prec
-      complex(psb_spk_),intent(in)        :: x(:)
+      complex(psb_spk_),intent(inout)     :: x(:)
       complex(psb_spk_),intent(inout)     :: y(:)
       integer, intent(out)             :: info
       character(len=1), optional       :: trans

mlprec/mld_cprecaply.f90

@@ -81,8 +81,8 @@ subroutine mld_cprecaply(prec,x,y,desc_data,info,trans,work)
   ! Arguments
   type(psb_desc_type),intent(in)    :: desc_data
   type(mld_cprec_type), intent(in)  :: prec
-  complex(psb_spk_),intent(inout)      :: x(:)
-  complex(psb_spk_),intent(inout)      :: y(:)
+  complex(psb_spk_),intent(inout)   :: x(:)
+  complex(psb_spk_),intent(inout)   :: y(:)
   integer, intent(out)              :: info
   character(len=1), optional        :: trans
   complex(psb_spk_),intent(inout), optional, target  :: work(:)

mlprec/mld_d_prec_type.f90

@@ -133,7 +133,7 @@ module mld_d_prec_type
       import mld_dprec_type
       type(psb_desc_type),intent(in)   :: desc_data
       type(mld_dprec_type), intent(in) :: prec
-      real(psb_dpk_),intent(in)        :: x(:)
+      real(psb_dpk_),intent(inout)     :: x(:)
       real(psb_dpk_),intent(inout)     :: y(:)
       integer, intent(out)             :: info
       character(len=1), optional       :: trans

mlprec/mld_s_prec_type.f90

@@ -133,7 +133,7 @@ module mld_s_prec_type
       import mld_sprec_type
       type(psb_desc_type),intent(in)   :: desc_data
       type(mld_sprec_type), intent(in) :: prec
-      real(psb_spk_),intent(in)        :: x(:)
+      real(psb_spk_),intent(inout)     :: x(:)
       real(psb_spk_),intent(inout)     :: y(:)
       integer, intent(out)             :: info
       character(len=1), optional       :: trans

mlprec/mld_z_prec_type.f90

@@ -133,7 +133,7 @@ module mld_z_prec_type
       import mld_zprec_type
       type(psb_desc_type),intent(in)   :: desc_data
       type(mld_zprec_type), intent(in) :: prec
-      complex(psb_dpk_),intent(in)        :: x(:)
+      complex(psb_dpk_),intent(inout)     :: x(:)
       complex(psb_dpk_),intent(inout)     :: y(:)
       integer, intent(out)             :: info
       character(len=1), optional       :: trans