fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Switch off detailed timings

Browse Source
fix-hash
Salvatore Filippone 1 year ago
parent a3496d8cb5
commit 52cec1761c
4 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File

6
base/psblas/psb_cspmm.f90
Unescape Escape 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)

6
base/psblas/psb_dspmm.f90
Unescape Escape 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)

6
base/psblas/psb_sspmm.f90
Unescape Escape 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)

6
base/psblas/psb_zspmm.f90
Unescape Escape 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)

Write Preview
Loading…
Cancel
Save