psblas3:

Fix inconsistent INTENT, revealed by NAG compiler.
 psb_cspsm.f90
 psb_dspsm.f90
 psb_sspsm.f90
 psb_zspsm.f90

base/psblas/psb_cspsm.f90

@@ -559,7 +559,7 @@ subroutine  psb_cspsv_vect(alpha,a,x,beta,y,desc_a,info,&
   complex(psb_spk_), intent(in)           :: alpha, beta
   type(psb_c_vect_type), intent(inout)    :: x
   type(psb_c_vect_type), intent(inout)    :: y
-  type(psb_cspmat_type), intent(in)       :: a
+  type(psb_cspmat_type), intent(inout)    :: a
   type(psb_desc_type), intent(in)         :: desc_a
   integer, intent(out)                    :: info
   type(psb_c_vect_type), intent(inout), optional  :: diag

base/psblas/psb_dspsm.f90

@@ -559,9 +559,9 @@ subroutine  psb_dspsv_vect(alpha,a,x,beta,y,desc_a,info,&
   real(psb_dpk_), intent(in)              :: alpha, beta
   type(psb_d_vect_type), intent(inout)    :: x
   type(psb_d_vect_type), intent(inout)    :: y
-  type(psb_dspmat_type), intent(in)         :: a
-  type(psb_desc_type), intent(in)           :: desc_a
-  integer, intent(out)                      :: info
+  type(psb_dspmat_type), intent(inout)    :: a
+  type(psb_desc_type), intent(in)         :: desc_a
+  integer, intent(out)                    :: info
   type(psb_d_vect_type), intent(inout), optional  :: diag
   real(psb_dpk_), optional, target, intent(inout)        :: work(:)
   character, intent(in), optional           :: trans, scale

base/psblas/psb_sspsm.f90

@@ -559,9 +559,9 @@ subroutine  psb_sspsv_vect(alpha,a,x,beta,y,desc_a,info,&
   real(psb_spk_), intent(in)              :: alpha, beta
   type(psb_s_vect_type), intent(inout)    :: x
   type(psb_s_vect_type), intent(inout)    :: y
-  type(psb_sspmat_type), intent(in)         :: a
-  type(psb_desc_type), intent(in)           :: desc_a
-  integer, intent(out)                      :: info
+  type(psb_sspmat_type), intent(inout)    :: a
+  type(psb_desc_type), intent(in)         :: desc_a
+  integer, intent(out)                    :: info
   type(psb_s_vect_type), intent(inout), optional  :: diag
   real(psb_spk_), optional, target, intent(inout)        :: work(:)
   character, intent(in), optional           :: trans, scale

base/psblas/psb_zspsm.f90

@@ -559,7 +559,7 @@ subroutine  psb_zspsv_vect(alpha,a,x,beta,y,desc_a,info,&
   complex(psb_dpk_), intent(in)           :: alpha, beta
   type(psb_z_vect_type), intent(inout)    :: x
   type(psb_z_vect_type), intent(inout)    :: y
-  type(psb_zspmat_type), intent(in)       :: a
+  type(psb_zspmat_type), intent(inout)    :: a
   type(psb_desc_type), intent(in)         :: desc_a
   integer, intent(out)                    :: info
   type(psb_z_vect_type), intent(inout), optional  :: diag