w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 04:11:16 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add a simple execution timer for small blocks of code.

Browse Source
This commit is contained in:
Joe Taylor 2020-07-22 10:43:33 -04:00
parent 52643b01e2
commit 372651ae55
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CMakeLists.txt
View File

@ -548,6 +548,7 @@ set (wsjt_FSRCS
lib/qra64a.f90
lib/refspectrum.f90
lib/savec2.f90
lib/sec0.f90
lib/sec_midn.f90
lib/setup65.f90
lib/sh65.f90

21
lib/sec0.f90 Normal file
View File

@ -0,0 +1,21 @@
subroutine sec0(n,t)
! Simple execution timer.
! call sec0(0,t)
! ... statements to be timed ...
! call sec0(1,t)
! print*,'Execution time:',t
integer*8 count0,count1,clkfreq
save count0
call system_clock(count1,clkfreq)
if(n.eq.0) then
count0=count1
return
else
t=float(count1-count0)/float(clkfreq)
endif
return
end subroutine sec0