fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 04:42:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Switch off detailed timings

Browse Source
This commit is contained in:
Salvatore Filippone
2025-03-27 17:16:51 +01:00
parent a3496d8cb5
commit 52cec1761c
4 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/psblas/psb_cspmm.f90
+3 -3
View File
@@ -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)
base/psblas/psb_dspmm.f90
+3 -3
View File
@@ -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)
base/psblas/psb_sspmm.f90
+3 -3
View File
@@ -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)
base/psblas/psb_zspmm.f90
+3 -3
View File
@@ -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)