diff --git a/prec/impl/psb_cprecbld.f90 b/prec/impl/psb_cprecbld.f90
index b2312468..4457a199 100644
--- a/prec/impl/psb_cprecbld.f90
+++ b/prec/impl/psb_cprecbld.f90
@@ -35,10 +35,10 @@ subroutine psb_cprecbld(a,desc_a,p,info,amold,vmold,imold)
   use psb_c_prec_type, psb_protect_name => psb_cprecbld
   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
-  integer(psb_ipk_), intent(out)               :: info
+  type(psb_cspmat_type), intent(in), target   :: a
+  type(psb_desc_type), intent(inout), target    :: desc_a
+  class(psb_cprec_type),intent(inout), target :: 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
   class(psb_i_base_vect_type), intent(in), optional  :: imold
diff --git a/prec/impl/psb_dprecbld.f90 b/prec/impl/psb_dprecbld.f90
index 5f2ac056..8027c8da 100644
--- a/prec/impl/psb_dprecbld.f90
+++ b/prec/impl/psb_dprecbld.f90
@@ -35,10 +35,10 @@ subroutine psb_dprecbld(a,desc_a,p,info,amold,vmold,imold)
   use psb_d_prec_type, psb_protect_name => psb_dprecbld
   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
-  integer(psb_ipk_), intent(out)               :: info
+  type(psb_dspmat_type), intent(in), target   :: a
+  type(psb_desc_type), intent(inout), target    :: desc_a
+  class(psb_dprec_type),intent(inout), target :: 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
   class(psb_i_base_vect_type), intent(in), optional  :: imold
diff --git a/prec/impl/psb_sprecbld.f90 b/prec/impl/psb_sprecbld.f90
index a69480c9..328d9f01 100644
--- a/prec/impl/psb_sprecbld.f90
+++ b/prec/impl/psb_sprecbld.f90
@@ -35,10 +35,10 @@ subroutine psb_sprecbld(a,desc_a,p,info,amold,vmold,imold)
   use psb_s_prec_type, psb_protect_name => psb_sprecbld
   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
-  integer(psb_ipk_), intent(out)               :: info
+  type(psb_sspmat_type), intent(in), target   :: a
+  type(psb_desc_type), intent(inout), target    :: desc_a
+  class(psb_sprec_type),intent(inout), target :: 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
   class(psb_i_base_vect_type), intent(in), optional  :: imold
diff --git a/prec/impl/psb_zprecbld.f90 b/prec/impl/psb_zprecbld.f90
index 164d1808..4f6559cf 100644
--- a/prec/impl/psb_zprecbld.f90
+++ b/prec/impl/psb_zprecbld.f90
@@ -35,10 +35,10 @@ subroutine psb_zprecbld(a,desc_a,p,info,amold,vmold,imold)
   use psb_z_prec_type, psb_protect_name => psb_zprecbld
   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
-  integer(psb_ipk_), intent(out)               :: info
+  type(psb_zspmat_type), intent(in), target   :: a
+  type(psb_desc_type), intent(inout), target    :: desc_a
+  class(psb_zprec_type),intent(inout), target :: 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
   class(psb_i_base_vect_type), intent(in), optional  :: imold
diff --git a/test/pargen/psb_d_pde2d.f90 b/test/pargen/psb_d_pde2d.f90
index 029286ae..ffce8778 100644
--- a/test/pargen/psb_d_pde2d.f90
+++ b/test/pargen/psb_d_pde2d.f90
@@ -186,7 +186,7 @@ contains
     n   = m
     nnz = ((n*7)/(np))
     if(iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
-
+    t0 = psb_wtime()
     select case(partition_)
     case(1)
       ! A BLOCK partition 
diff --git a/test/pargen/psb_d_pde3d.f90 b/test/pargen/psb_d_pde3d.f90
index ec740790..0448bb0c 100644
--- a/test/pargen/psb_d_pde3d.f90
+++ b/test/pargen/psb_d_pde3d.f90
@@ -187,7 +187,7 @@ contains
     n   = m
     nnz = ((n*9)/(np))
     if(iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
-
+    t0 = psb_wtime()
     select case(partition_)
     case(1)
       ! A BLOCK partition 
diff --git a/test/pargen/psb_s_pde2d.f90 b/test/pargen/psb_s_pde2d.f90
index 788e8eb6..347f0ff7 100644
--- a/test/pargen/psb_s_pde2d.f90
+++ b/test/pargen/psb_s_pde2d.f90
@@ -186,7 +186,7 @@ contains
     n   = m
     nnz = ((n*7)/(np))
     if(iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
-
+    t0 = psb_wtime()
     select case(partition_)
     case(1)
       ! A BLOCK partition 
diff --git a/test/pargen/psb_s_pde3d.f90 b/test/pargen/psb_s_pde3d.f90
index efc509d6..ed97a5f7 100644
--- a/test/pargen/psb_s_pde3d.f90
+++ b/test/pargen/psb_s_pde3d.f90
@@ -187,7 +187,7 @@ contains
     n   = m
     nnz = ((n*9)/(np))
     if(iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
-
+    t0 = psb_wtime()
     select case(partition_)
     case(1)
       ! A BLOCK partition