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

@@ -200,9 +200,9 @@ contains
   subroutine d_apply2v(prec,x,y,desc_data,info,trans,work)
     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)    :: y(:)
+    class(psb_dprec_type), intent(in) :: prec
+    real(psb_dpk_),intent(inout)      :: x(:)
+    real(psb_dpk_),intent(inout)      :: y(:)
     integer, intent(out)              :: info
     character(len=1), optional        :: trans
     real(psb_dpk_),intent(inout), optional, target :: work(:)
@@ -269,8 +269,8 @@ contains
   subroutine d_apply1v(prec,x,desc_data,info,trans)
     use psb_sparse_mod
     type(psb_desc_type),intent(in)    :: desc_data
-    class(psb_dprec_type), intent(in)  :: prec
-    real(psb_dpk_),intent(inout)    :: x(:)
+    class(psb_dprec_type), intent(in) :: prec
+    real(psb_dpk_),intent(inout)      :: x(:)
     integer, intent(out)              :: info
     character(len=1), optional        :: trans
 

prec/psb_s_prec_type.f90

@@ -172,9 +172,9 @@ contains
   subroutine s_apply2v(prec,x,y,desc_data,info,trans,work)
     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)    :: y(:)
+    class(psb_sprec_type), intent(in) :: prec
+    real(psb_spk_),intent(inout)      :: x(:)
+    real(psb_spk_),intent(inout)      :: y(:)
     integer, intent(out)              :: info
     character(len=1), optional        :: trans
     real(psb_spk_),intent(inout), optional, target :: work(:)
@@ -241,8 +241,8 @@ contains
   subroutine s_apply1v(prec,x,desc_data,info,trans)
     use psb_sparse_mod
     type(psb_desc_type),intent(in)    :: desc_data
-    class(psb_sprec_type), intent(in)  :: prec
-    real(psb_spk_),intent(inout)    :: x(:)
+    class(psb_sprec_type), intent(in) :: prec
+    real(psb_spk_),intent(inout)      :: x(:)
     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