diff --git a/base/modules/psb_c_tools_mod.f90 b/base/modules/psb_c_tools_mod.f90
index b650f160..0415aeb2 100644
--- a/base/modules/psb_c_tools_mod.f90
+++ b/base/modules/psb_c_tools_mod.f90
@@ -227,9 +227,9 @@ Module psb_c_tools_mod
            & psb_c_base_vect_type, psb_c_vect_type, &
            & psb_cspmat_type, psb_c_base_sparse_mat
       integer(psb_ipk_), intent(in)                     :: novr
-      Type(psb_cspmat_type), Intent(inout)       :: a
-      Type(psb_desc_type), Intent(in), target :: desc_a
-      Type(psb_desc_type), Intent(out)        :: desc_ov
+      Type(psb_cspmat_type), Intent(in)        :: a
+      Type(psb_desc_type), Intent(inout), target :: desc_a
+      Type(psb_desc_type), Intent(out)           :: desc_ov
       integer(psb_ipk_), intent(out)                    :: info
       integer(psb_ipk_), intent(in),optional            :: extype
     end Subroutine psb_ccdbldext
diff --git a/base/modules/psb_d_tools_mod.f90 b/base/modules/psb_d_tools_mod.f90
index b19e1808..013f9dd0 100644
--- a/base/modules/psb_d_tools_mod.f90
+++ b/base/modules/psb_d_tools_mod.f90
@@ -227,9 +227,9 @@ Module psb_d_tools_mod
            & psb_d_base_vect_type, psb_d_vect_type, &
            & psb_dspmat_type, psb_d_base_sparse_mat
       integer(psb_ipk_), intent(in)                     :: novr
-      Type(psb_dspmat_type), Intent(inout)       :: a
-      Type(psb_desc_type), Intent(in), target :: desc_a
-      Type(psb_desc_type), Intent(out)        :: desc_ov
+      Type(psb_dspmat_type), Intent(in)        :: a
+      Type(psb_desc_type), Intent(inout), target :: desc_a
+      Type(psb_desc_type), Intent(out)           :: desc_ov
       integer(psb_ipk_), intent(out)                    :: info
       integer(psb_ipk_), intent(in),optional            :: extype
     end Subroutine psb_dcdbldext
diff --git a/base/modules/psb_s_tools_mod.f90 b/base/modules/psb_s_tools_mod.f90
index 908832a8..0d2c4077 100644
--- a/base/modules/psb_s_tools_mod.f90
+++ b/base/modules/psb_s_tools_mod.f90
@@ -227,9 +227,9 @@ Module psb_s_tools_mod
            & psb_s_base_vect_type, psb_s_vect_type, &
            & psb_sspmat_type, psb_s_base_sparse_mat
       integer(psb_ipk_), intent(in)                     :: novr
-      Type(psb_sspmat_type), Intent(inout)       :: a
-      Type(psb_desc_type), Intent(in), target :: desc_a
-      Type(psb_desc_type), Intent(out)        :: desc_ov
+      Type(psb_sspmat_type), Intent(in)        :: a
+      Type(psb_desc_type), Intent(inout), target :: desc_a
+      Type(psb_desc_type), Intent(out)           :: desc_ov
       integer(psb_ipk_), intent(out)                    :: info
       integer(psb_ipk_), intent(in),optional            :: extype
     end Subroutine psb_scdbldext
diff --git a/base/modules/psb_z_tools_mod.f90 b/base/modules/psb_z_tools_mod.f90
index 72091a9c..12469e51 100644
--- a/base/modules/psb_z_tools_mod.f90
+++ b/base/modules/psb_z_tools_mod.f90
@@ -227,9 +227,9 @@ Module psb_z_tools_mod
            & psb_z_base_vect_type, psb_z_vect_type, &
            & psb_zspmat_type, psb_z_base_sparse_mat
       integer(psb_ipk_), intent(in)                     :: novr
-      Type(psb_zspmat_type), Intent(inout)       :: a
-      Type(psb_desc_type), Intent(in), target :: desc_a
-      Type(psb_desc_type), Intent(out)        :: desc_ov
+      Type(psb_zspmat_type), Intent(in)        :: a
+      Type(psb_desc_type), Intent(inout), target :: desc_a
+      Type(psb_desc_type), Intent(out)           :: desc_ov
       integer(psb_ipk_), intent(out)                    :: info
       integer(psb_ipk_), intent(in),optional            :: extype
     end Subroutine psb_zcdbldext