diff --git a/prec/psb_c_prec_type.f90 b/prec/psb_c_prec_type.f90 index fbc98566..e3c356ea 100644 --- a/prec/psb_c_prec_type.f90 +++ b/prec/psb_c_prec_type.f90 @@ -77,7 +77,7 @@ module psb_c_prec_type implicit none type(psb_cspmat_type), intent(in), target :: a type(psb_desc_type), intent(inout), target :: desc_a - class(psb_cprec_type), intent(inout), target :: prec + class(psb_cprec_type), intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_c_base_sparse_mat), intent(in), optional :: amold class(psb_c_base_vect_type), intent(in), optional :: vmold diff --git a/prec/psb_d_prec_type.f90 b/prec/psb_d_prec_type.f90 index 5290291d..68982865 100644 --- a/prec/psb_d_prec_type.f90 +++ b/prec/psb_d_prec_type.f90 @@ -77,7 +77,7 @@ module psb_d_prec_type implicit none type(psb_dspmat_type), intent(in), target :: a type(psb_desc_type), intent(inout), target :: desc_a - class(psb_dprec_type), intent(inout), target :: prec + class(psb_dprec_type), intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_d_base_sparse_mat), intent(in), optional :: amold class(psb_d_base_vect_type), intent(in), optional :: vmold diff --git a/prec/psb_s_prec_type.f90 b/prec/psb_s_prec_type.f90 index 8d5267a9..1e14f92f 100644 --- a/prec/psb_s_prec_type.f90 +++ b/prec/psb_s_prec_type.f90 @@ -77,7 +77,7 @@ module psb_s_prec_type implicit none type(psb_sspmat_type), intent(in), target :: a type(psb_desc_type), intent(inout), target :: desc_a - class(psb_sprec_type), intent(inout), target :: prec + class(psb_sprec_type), intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_s_base_sparse_mat), intent(in), optional :: amold class(psb_s_base_vect_type), intent(in), optional :: vmold diff --git a/prec/psb_z_prec_type.f90 b/prec/psb_z_prec_type.f90 index 93c15c02..f28e6665 100644 --- a/prec/psb_z_prec_type.f90 +++ b/prec/psb_z_prec_type.f90 @@ -77,7 +77,7 @@ module psb_z_prec_type implicit none type(psb_zspmat_type), intent(in), target :: a type(psb_desc_type), intent(inout), target :: desc_a - class(psb_zprec_type), intent(inout), target :: prec + class(psb_zprec_type), intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_z_base_sparse_mat), intent(in), optional :: amold class(psb_z_base_vect_type), intent(in), optional :: vmold