diff --git a/prec/impl/psb_c_bjacprec_impl.f90 b/prec/impl/psb_c_bjacprec_impl.f90 index ffcc54ca..d10d1887 100644 --- a/prec/impl/psb_c_bjacprec_impl.f90 +++ b/prec/impl/psb_c_bjacprec_impl.f90 @@ -415,7 +415,7 @@ subroutine psb_c_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold) 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_bjac_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_c_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/impl/psb_c_diagprec_impl.f90 b/prec/impl/psb_c_diagprec_impl.f90 index 0dc21b3e..2f4185b5 100644 --- a/prec/impl/psb_c_diagprec_impl.f90 +++ b/prec/impl/psb_c_diagprec_impl.f90 @@ -232,7 +232,7 @@ subroutine psb_c_diag_precbld(a,desc_a,prec,info,amold,vmold,imold) 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_diag_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_c_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/impl/psb_cprecbld.f90 b/prec/impl/psb_cprecbld.f90 index 44da513a..23808d8f 100644 --- a/prec/impl/psb_cprecbld.f90 +++ b/prec/impl/psb_cprecbld.f90 @@ -36,7 +36,7 @@ subroutine psb_cprecbld(a,desc_a,p,info,amold,vmold,imold) 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_cprec_type),intent(inout) :: p integer(psb_ipk_), intent(out) :: info class(psb_c_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/impl/psb_d_bjacprec_impl.f90 b/prec/impl/psb_d_bjacprec_impl.f90 index 00659aff..b01b5572 100644 --- a/prec/impl/psb_d_bjacprec_impl.f90 +++ b/prec/impl/psb_d_bjacprec_impl.f90 @@ -415,7 +415,7 @@ subroutine psb_d_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold) 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_bjac_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_d_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/impl/psb_d_diagprec_impl.f90 b/prec/impl/psb_d_diagprec_impl.f90 index 7cc6e551..86f0d185 100644 --- a/prec/impl/psb_d_diagprec_impl.f90 +++ b/prec/impl/psb_d_diagprec_impl.f90 @@ -232,7 +232,7 @@ subroutine psb_d_diag_precbld(a,desc_a,prec,info,amold,vmold,imold) 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_diag_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_d_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/impl/psb_dprecbld.f90 b/prec/impl/psb_dprecbld.f90 index 1d6e0fb6..ca59a393 100644 --- a/prec/impl/psb_dprecbld.f90 +++ b/prec/impl/psb_dprecbld.f90 @@ -36,7 +36,7 @@ subroutine psb_dprecbld(a,desc_a,p,info,amold,vmold,imold) 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_dprec_type),intent(inout) :: p integer(psb_ipk_), intent(out) :: info class(psb_d_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/impl/psb_s_bjacprec_impl.f90 b/prec/impl/psb_s_bjacprec_impl.f90 index aaf461a8..ca842b87 100644 --- a/prec/impl/psb_s_bjacprec_impl.f90 +++ b/prec/impl/psb_s_bjacprec_impl.f90 @@ -415,7 +415,7 @@ subroutine psb_s_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold) 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_bjac_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_s_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/impl/psb_s_diagprec_impl.f90 b/prec/impl/psb_s_diagprec_impl.f90 index 02d1b435..1b80c59f 100644 --- a/prec/impl/psb_s_diagprec_impl.f90 +++ b/prec/impl/psb_s_diagprec_impl.f90 @@ -232,7 +232,7 @@ subroutine psb_s_diag_precbld(a,desc_a,prec,info,amold,vmold,imold) 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_diag_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_s_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/impl/psb_sprecbld.f90 b/prec/impl/psb_sprecbld.f90 index 8828caff..45e5416a 100644 --- a/prec/impl/psb_sprecbld.f90 +++ b/prec/impl/psb_sprecbld.f90 @@ -36,7 +36,7 @@ subroutine psb_sprecbld(a,desc_a,p,info,amold,vmold,imold) 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_sprec_type),intent(inout) :: p integer(psb_ipk_), intent(out) :: info class(psb_s_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/impl/psb_z_bjacprec_impl.f90 b/prec/impl/psb_z_bjacprec_impl.f90 index a6848b79..30a5c556 100644 --- a/prec/impl/psb_z_bjacprec_impl.f90 +++ b/prec/impl/psb_z_bjacprec_impl.f90 @@ -415,7 +415,7 @@ subroutine psb_z_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold) 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_bjac_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_z_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/impl/psb_z_diagprec_impl.f90 b/prec/impl/psb_z_diagprec_impl.f90 index 7a36b95c..8e2ef4a5 100644 --- a/prec/impl/psb_z_diagprec_impl.f90 +++ b/prec/impl/psb_z_diagprec_impl.f90 @@ -232,7 +232,7 @@ subroutine psb_z_diag_precbld(a,desc_a,prec,info,amold,vmold,imold) 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_diag_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_z_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/impl/psb_zprecbld.f90 b/prec/impl/psb_zprecbld.f90 index 608feded..f87cf8a7 100644 --- a/prec/impl/psb_zprecbld.f90 +++ b/prec/impl/psb_zprecbld.f90 @@ -36,7 +36,7 @@ subroutine psb_zprecbld(a,desc_a,p,info,amold,vmold,imold) 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_zprec_type),intent(inout) :: p integer(psb_ipk_), intent(out) :: info class(psb_z_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_c_bjacprec.f90 b/prec/psb_c_bjacprec.f90 index 4cd88543..aac1b3c0 100644 --- a/prec/psb_c_bjacprec.f90 +++ b/prec/psb_c_bjacprec.f90 @@ -111,7 +111,7 @@ module psb_c_bjacprec & psb_cspmat_type, psb_c_base_sparse_mat, psb_c_base_vect_type, & & psb_i_base_vect_type 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_bjac_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_c_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_c_diagprec.f90 b/prec/psb_c_diagprec.f90 index 0548d90d..3a1b5af9 100644 --- a/prec/psb_c_diagprec.f90 +++ b/prec/psb_c_diagprec.f90 @@ -89,7 +89,7 @@ module psb_c_diagprec & psb_cspmat_type, psb_c_base_sparse_mat, psb_c_base_vect_type, & & psb_i_base_vect_type 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_diag_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_c_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_c_nullprec.f90 b/prec/psb_c_nullprec.f90 index 3ed462b7..59e71ce7 100644 --- a/prec/psb_c_nullprec.f90 +++ b/prec/psb_c_nullprec.f90 @@ -109,7 +109,7 @@ contains 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_null_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_c_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_c_prec_type.f90 b/prec/psb_c_prec_type.f90 index 6f714e30..112acd8d 100644 --- a/prec/psb_c_prec_type.f90 +++ b/prec/psb_c_prec_type.f90 @@ -76,7 +76,7 @@ module psb_c_prec_type & psb_cprec_type, psb_i_base_vect_type 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_cprec_type), intent(inout), target :: prec integer(psb_ipk_), intent(out) :: info class(psb_c_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_d_bjacprec.f90 b/prec/psb_d_bjacprec.f90 index 83a1897e..de561415 100644 --- a/prec/psb_d_bjacprec.f90 +++ b/prec/psb_d_bjacprec.f90 @@ -111,7 +111,7 @@ module psb_d_bjacprec & psb_dspmat_type, psb_d_base_sparse_mat, psb_d_base_vect_type, & & psb_i_base_vect_type 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_bjac_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_d_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_d_diagprec.f90 b/prec/psb_d_diagprec.f90 index e0034d46..2e6ef92d 100644 --- a/prec/psb_d_diagprec.f90 +++ b/prec/psb_d_diagprec.f90 @@ -89,7 +89,7 @@ module psb_d_diagprec & psb_dspmat_type, psb_d_base_sparse_mat, psb_d_base_vect_type, & & psb_i_base_vect_type 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_diag_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_d_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_d_nullprec.f90 b/prec/psb_d_nullprec.f90 index 503776f4..acb03ec7 100644 --- a/prec/psb_d_nullprec.f90 +++ b/prec/psb_d_nullprec.f90 @@ -109,7 +109,7 @@ contains 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_null_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_d_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_d_prec_type.f90 b/prec/psb_d_prec_type.f90 index 04e7c5c0..eb0fa5c8 100644 --- a/prec/psb_d_prec_type.f90 +++ b/prec/psb_d_prec_type.f90 @@ -76,7 +76,7 @@ module psb_d_prec_type & psb_dprec_type, psb_i_base_vect_type 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_dprec_type), intent(inout), target :: prec integer(psb_ipk_), intent(out) :: info class(psb_d_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_s_bjacprec.f90 b/prec/psb_s_bjacprec.f90 index 96c3164f..f07d023a 100644 --- a/prec/psb_s_bjacprec.f90 +++ b/prec/psb_s_bjacprec.f90 @@ -111,7 +111,7 @@ module psb_s_bjacprec & psb_sspmat_type, psb_s_base_sparse_mat, psb_s_base_vect_type, & & psb_i_base_vect_type 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_bjac_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_s_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_s_diagprec.f90 b/prec/psb_s_diagprec.f90 index 0b68d3f5..a97e18d7 100644 --- a/prec/psb_s_diagprec.f90 +++ b/prec/psb_s_diagprec.f90 @@ -89,7 +89,7 @@ module psb_s_diagprec & psb_sspmat_type, psb_s_base_sparse_mat, psb_s_base_vect_type, & & psb_i_base_vect_type 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_diag_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_s_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_s_nullprec.f90 b/prec/psb_s_nullprec.f90 index de2455ce..453b7716 100644 --- a/prec/psb_s_nullprec.f90 +++ b/prec/psb_s_nullprec.f90 @@ -109,7 +109,7 @@ contains 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_null_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_s_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_s_prec_type.f90 b/prec/psb_s_prec_type.f90 index 1fa54f5c..ef4ffc21 100644 --- a/prec/psb_s_prec_type.f90 +++ b/prec/psb_s_prec_type.f90 @@ -76,7 +76,7 @@ module psb_s_prec_type & psb_sprec_type, psb_i_base_vect_type 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_sprec_type), intent(inout), target :: prec integer(psb_ipk_), intent(out) :: info class(psb_s_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_z_bjacprec.f90 b/prec/psb_z_bjacprec.f90 index ac723ba0..64ede43d 100644 --- a/prec/psb_z_bjacprec.f90 +++ b/prec/psb_z_bjacprec.f90 @@ -111,7 +111,7 @@ module psb_z_bjacprec & psb_zspmat_type, psb_z_base_sparse_mat, psb_z_base_vect_type, & & psb_i_base_vect_type 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_bjac_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_z_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_z_diagprec.f90 b/prec/psb_z_diagprec.f90 index d16fb2c0..db2569f0 100644 --- a/prec/psb_z_diagprec.f90 +++ b/prec/psb_z_diagprec.f90 @@ -89,7 +89,7 @@ module psb_z_diagprec & psb_zspmat_type, psb_z_base_sparse_mat, psb_z_base_vect_type, & & psb_i_base_vect_type 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_diag_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_z_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_z_nullprec.f90 b/prec/psb_z_nullprec.f90 index 37b6d21b..7e69de01 100644 --- a/prec/psb_z_nullprec.f90 +++ b/prec/psb_z_nullprec.f90 @@ -109,7 +109,7 @@ contains 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_null_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_z_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_z_prec_type.f90 b/prec/psb_z_prec_type.f90 index ab0cc3fc..680c2a70 100644 --- a/prec/psb_z_prec_type.f90 +++ b/prec/psb_z_prec_type.f90 @@ -76,7 +76,7 @@ module psb_z_prec_type & psb_zprec_type, psb_i_base_vect_type 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_zprec_type), intent(inout), target :: prec integer(psb_ipk_), intent(out) :: info class(psb_z_base_sparse_mat), intent(in), optional :: amold