w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Use CPU_TIME() rather than SYSTEM_CLOCK() in timer.

Browse Source 
SYSTEM_CLOCK() did not work as well, in the Windows Release build.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4525 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2014-10-17 18:38:06 +00:00
parent 0a5facb331
commit ef3eb77f7f
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lib/timer.f90
View File

@ -36,8 +36,9 @@ subroutine timer(dname,k)
if(on(n)) print*,'Error in timer: ',dname,' already on.'
level=level+1 !Increment the level
on(n)=.true.
call system_clock(icount,irate)
ut0(n)=float(icount)/irate
! call system_clock(icount,irate)
! ut0(n)=float(icount)/irate
call cpu_time(ut0(n))
ncall(n)=ncall(n)+1
if(ncall(n).gt.1.and.nlevel(n).ne.level) then
nlevel(n)=-1
@ -50,8 +51,9 @@ subroutine timer(dname,k)
else if(k.eq.1) then !Get stop times and accumulate sums. (k=1)
if(on(n)) then
on(n)=.false.
call system_clock(icount,irate)
ut1=float(icount)/irate
! call system_clock(icount,irate)
! ut1=float(icount)/irate
call cpu_time(ut1)
ut(n)=ut(n)+ut1-ut0(n)
endif
level=level-1
@ -84,6 +86,7 @@ subroutine timer(dname,k)
do j=i,nmax
if(nparent(j).eq.i) dut(i)=dut(i)-ut(j)
enddo
if(dut(i).lt.0.0) dut(i)=0.0
utf=ut(i)/total
dutf=dut(i)/total
sum=sum+dut(i)
@ -94,7 +97,7 @@ subroutine timer(dname,k)
if(i.ge.2) ename=name(nparent(i))
write(lu,1060) float(i),sname,ut(i),utf,dut(i),dutf, &
ncall(i),nlevel(i),ename
1060 format(f4.0,a16,2(f10.2,f6.2),i7,i5,2x,a8)
1060 format(f4.0,a16,2(f10.3,f6.2),i7,i5,2x,a8)
enddo
write(lu,1070) sum,sumf