diff --git a/base/psblas/psb_cspmm.f90 b/base/psblas/psb_cspmm.f90
index 0f18dc86..69f315ea 100644
--- a/base/psblas/psb_cspmm.f90
+++ b/base/psblas/psb_cspmm.f90
@@ -83,7 +83,7 @@ subroutine  psb_cspmv_vect(alpha,a,x,beta,y,desc_a,info,&
   character(len=20)        :: name, ch_err
   logical                  :: aliw, doswap_
   integer(psb_ipk_) :: debug_level, debug_unit
-  logical, parameter  :: do_timings=.true.
+  logical, parameter  :: do_timings=.false.
   integer(psb_ipk_), save  :: mv_phase1=-1, mv_phase2=-1, mv_phase3=-1, mv_phase4=-1
   integer(psb_ipk_), save  :: mv_phase11=-1, mv_phase12=-1
 
@@ -197,7 +197,7 @@ subroutine  psb_cspmv_vect(alpha,a,x,beta,y,desc_a,info,&
     
     if (allocated(a%ad)) then
       block
-        logical, parameter :: do_timings=.true.
+        logical, parameter :: do_timings=.false.
         real(psb_dpk_) :: t1, t2, t3, t4, t5
         !if (me==0) write(0,*) 'going for overlap ',a%ad%get_fmt(),' ',a%and%get_fmt()
         if (do_timings) call psb_barrier(ctxt)
@@ -218,7 +218,7 @@ subroutine  psb_cspmv_vect(alpha,a,x,beta,y,desc_a,info,&
       
     else
       block
-        logical, parameter :: do_timings=.true.
+        logical, parameter :: do_timings=.false.
         real(psb_dpk_) :: t1, t2, t3, t4, t5
         if (do_timings) call psb_barrier(ctxt)
         
diff --git a/base/psblas/psb_dspmm.f90 b/base/psblas/psb_dspmm.f90
index dc022cc4..717133fa 100644
--- a/base/psblas/psb_dspmm.f90
+++ b/base/psblas/psb_dspmm.f90
@@ -83,7 +83,7 @@ subroutine  psb_dspmv_vect(alpha,a,x,beta,y,desc_a,info,&
   character(len=20)        :: name, ch_err
   logical                  :: aliw, doswap_
   integer(psb_ipk_) :: debug_level, debug_unit
-  logical, parameter  :: do_timings=.true.
+  logical, parameter  :: do_timings=.false.
   integer(psb_ipk_), save  :: mv_phase1=-1, mv_phase2=-1, mv_phase3=-1, mv_phase4=-1
   integer(psb_ipk_), save  :: mv_phase11=-1, mv_phase12=-1
 
@@ -197,7 +197,7 @@ subroutine  psb_dspmv_vect(alpha,a,x,beta,y,desc_a,info,&
     
     if (allocated(a%ad)) then
       block
-        logical, parameter :: do_timings=.true.
+        logical, parameter :: do_timings=.false.
         real(psb_dpk_) :: t1, t2, t3, t4, t5
         !if (me==0) write(0,*) 'going for overlap ',a%ad%get_fmt(),' ',a%and%get_fmt()
         if (do_timings) call psb_barrier(ctxt)
@@ -218,7 +218,7 @@ subroutine  psb_dspmv_vect(alpha,a,x,beta,y,desc_a,info,&
       
     else
       block
-        logical, parameter :: do_timings=.true.
+        logical, parameter :: do_timings=.false.
         real(psb_dpk_) :: t1, t2, t3, t4, t5
         if (do_timings) call psb_barrier(ctxt)
         
diff --git a/base/psblas/psb_sspmm.f90 b/base/psblas/psb_sspmm.f90
index e6fbaab9..0e432054 100644
--- a/base/psblas/psb_sspmm.f90
+++ b/base/psblas/psb_sspmm.f90
@@ -83,7 +83,7 @@ subroutine  psb_sspmv_vect(alpha,a,x,beta,y,desc_a,info,&
   character(len=20)        :: name, ch_err
   logical                  :: aliw, doswap_
   integer(psb_ipk_) :: debug_level, debug_unit
-  logical, parameter  :: do_timings=.true.
+  logical, parameter  :: do_timings=.false.
   integer(psb_ipk_), save  :: mv_phase1=-1, mv_phase2=-1, mv_phase3=-1, mv_phase4=-1
   integer(psb_ipk_), save  :: mv_phase11=-1, mv_phase12=-1
 
@@ -197,7 +197,7 @@ subroutine  psb_sspmv_vect(alpha,a,x,beta,y,desc_a,info,&
     
     if (allocated(a%ad)) then
       block
-        logical, parameter :: do_timings=.true.
+        logical, parameter :: do_timings=.false.
         real(psb_dpk_) :: t1, t2, t3, t4, t5
         !if (me==0) write(0,*) 'going for overlap ',a%ad%get_fmt(),' ',a%and%get_fmt()
         if (do_timings) call psb_barrier(ctxt)
@@ -218,7 +218,7 @@ subroutine  psb_sspmv_vect(alpha,a,x,beta,y,desc_a,info,&
       
     else
       block
-        logical, parameter :: do_timings=.true.
+        logical, parameter :: do_timings=.false.
         real(psb_dpk_) :: t1, t2, t3, t4, t5
         if (do_timings) call psb_barrier(ctxt)
         
diff --git a/base/psblas/psb_zspmm.f90 b/base/psblas/psb_zspmm.f90
index 9309c417..23766b52 100644
--- a/base/psblas/psb_zspmm.f90
+++ b/base/psblas/psb_zspmm.f90
@@ -83,7 +83,7 @@ subroutine  psb_zspmv_vect(alpha,a,x,beta,y,desc_a,info,&
   character(len=20)        :: name, ch_err
   logical                  :: aliw, doswap_
   integer(psb_ipk_) :: debug_level, debug_unit
-  logical, parameter  :: do_timings=.true.
+  logical, parameter  :: do_timings=.false.
   integer(psb_ipk_), save  :: mv_phase1=-1, mv_phase2=-1, mv_phase3=-1, mv_phase4=-1
   integer(psb_ipk_), save  :: mv_phase11=-1, mv_phase12=-1
 
@@ -197,7 +197,7 @@ subroutine  psb_zspmv_vect(alpha,a,x,beta,y,desc_a,info,&
     
     if (allocated(a%ad)) then
       block
-        logical, parameter :: do_timings=.true.
+        logical, parameter :: do_timings=.false.
         real(psb_dpk_) :: t1, t2, t3, t4, t5
         !if (me==0) write(0,*) 'going for overlap ',a%ad%get_fmt(),' ',a%and%get_fmt()
         if (do_timings) call psb_barrier(ctxt)
@@ -218,7 +218,7 @@ subroutine  psb_zspmv_vect(alpha,a,x,beta,y,desc_a,info,&
       
     else
       block
-        logical, parameter :: do_timings=.true.
+        logical, parameter :: do_timings=.false.
         real(psb_dpk_) :: t1, t2, t3, t4, t5
         if (do_timings) call psb_barrier(ctxt)