diff --git a/prec/impl/psb_cprecbld.f90 b/prec/impl/psb_cprecbld.f90
index b2312468..46d12f5d 100644
--- a/prec/impl/psb_cprecbld.f90
+++ b/prec/impl/psb_cprecbld.f90
@@ -36,8 +36,8 @@ 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(inout), target      :: desc_a
-  class(psb_cprec_type),intent(inout)         :: p
+  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
   class(psb_c_base_vect_type), intent(in), optional  :: vmold
diff --git a/prec/impl/psb_dprecbld.f90 b/prec/impl/psb_dprecbld.f90
index 5f2ac056..8208b787 100644
--- a/prec/impl/psb_dprecbld.f90
+++ b/prec/impl/psb_dprecbld.f90
@@ -36,8 +36,8 @@ 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(inout), target      :: desc_a
-  class(psb_dprec_type),intent(inout)         :: p
+  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
   class(psb_d_base_vect_type), intent(in), optional  :: vmold
diff --git a/prec/impl/psb_sprecbld.f90 b/prec/impl/psb_sprecbld.f90
index a69480c9..80174b29 100644
--- a/prec/impl/psb_sprecbld.f90
+++ b/prec/impl/psb_sprecbld.f90
@@ -36,8 +36,8 @@ 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(inout), target      :: desc_a
-  class(psb_sprec_type),intent(inout)         :: p
+  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
   class(psb_s_base_vect_type), intent(in), optional  :: vmold
diff --git a/prec/impl/psb_zprecbld.f90 b/prec/impl/psb_zprecbld.f90
index 164d1808..ada29b35 100644
--- a/prec/impl/psb_zprecbld.f90
+++ b/prec/impl/psb_zprecbld.f90
@@ -36,8 +36,8 @@ 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(inout), target      :: desc_a
-  class(psb_zprec_type),intent(inout)         :: p
+  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
   class(psb_z_base_vect_type), intent(in), optional  :: vmold
diff --git a/prec/psb_c_prec_type.f90 b/prec/psb_c_prec_type.f90
index a7bc4031..32abaf79 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 814baa74..c822c230 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 5cbc1018..22f484ee 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 526628b9..47423fe7 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