psblas3:

prec/psb_c_base_prec_mod.f90
 prec/psb_d_base_prec_mod.f90
 prec/psb_s_base_prec_mod.f90
 prec/psb_z_base_prec_mod.f90

Fix intent in precbld

prec/psb_c_base_prec_mod.f90

@@ -131,7 +131,7 @@ module psb_c_base_prec_mod
       Implicit None
 
       type(psb_cspmat_type), intent(in), target :: a
-      type(psb_desc_type), intent(in), target   :: desc_a
+      type(psb_desc_type), intent(inout), target   :: desc_a
       class(psb_c_base_prec_type),intent(inout) :: prec
       integer(psb_ipk_), intent(out)                      :: info
       class(psb_c_base_sparse_mat), intent(in), optional :: amold

prec/psb_d_base_prec_mod.f90

@@ -131,7 +131,7 @@ module psb_d_base_prec_mod
       Implicit None
 
       type(psb_dspmat_type), intent(in), target :: a
-      type(psb_desc_type), intent(in), target   :: desc_a
+      type(psb_desc_type), intent(inout), target   :: desc_a
       class(psb_d_base_prec_type),intent(inout) :: prec
       integer(psb_ipk_), intent(out)                      :: info
       class(psb_d_base_sparse_mat), intent(in), optional :: amold

prec/psb_s_base_prec_mod.f90

@@ -131,7 +131,7 @@ module psb_s_base_prec_mod
       Implicit None
 
       type(psb_sspmat_type), intent(in), target :: a
-      type(psb_desc_type), intent(in), target   :: desc_a
+      type(psb_desc_type), intent(inout), target   :: desc_a
       class(psb_s_base_prec_type),intent(inout) :: prec
       integer(psb_ipk_), intent(out)                      :: info
       class(psb_s_base_sparse_mat), intent(in), optional :: amold

prec/psb_z_base_prec_mod.f90

@@ -131,7 +131,7 @@ module psb_z_base_prec_mod
       Implicit None
 
       type(psb_zspmat_type), intent(in), target :: a
-      type(psb_desc_type), intent(in), target   :: desc_a
+      type(psb_desc_type), intent(inout), target   :: desc_a
       class(psb_z_base_prec_type),intent(inout) :: prec
       integer(psb_ipk_), intent(out)                      :: info
       class(psb_z_base_sparse_mat), intent(in), optional :: amold