psblas3

prec/psb_c_prec_type.f90
 prec/psb_d_prec_type.f90
 prec/psb_s_prec_type.f90
 prec/psb_z_prec_type.f90
Made X vector in APPLY as INTENT(INOUT) to allow for preconditioners
that apply SPMM.

prec/psb_c_prec_type.f90

@@ -170,7 +170,7 @@ contains
     use psb_sparse_mod
     type(psb_desc_type),intent(in)    :: desc_data
     class(psb_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

prec/psb_d_prec_type.f90

@@ -201,7 +201,7 @@ contains
     use psb_sparse_mod
     type(psb_desc_type),intent(in)    :: desc_data
     class(psb_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

prec/psb_s_prec_type.f90

@@ -173,7 +173,7 @@ contains
     use psb_sparse_mod
     type(psb_desc_type),intent(in)    :: desc_data
     class(psb_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

prec/psb_z_prec_type.f90

@@ -170,7 +170,7 @@ contains
     use psb_sparse_mod
     type(psb_desc_type),intent(in)    :: desc_data
     class(psb_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