Optimizations of JT9 and JT65 decoders; change clock in timer routine.

Both decoders now have slightly better performance and faster
execution.  The rare "duplicate decodes" in JT9 were eliminated.
On Windows, at least, calls to f90 routine system_clock() do not
provide correct wall time increments.  Changed to using secnds()
instead.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4571 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor
2014-10-30 19:29:16 +00:00
parent 7680cb3c75
commit d9bc8f5dff
5 changed files with 57 additions and 70 deletions
+6 -2
View File
@@ -38,7 +38,9 @@ subroutine timer(dname,k)
on(n)=.true.
! call system_clock(icount,irate)
! ut0(n)=float(icount)/irate
call cpu_time(ut0(n))
! call cpu_time(ut0(n))
ut0(n)=secnds(0.0)
ncall(n)=ncall(n)+1
if(ncall(n).gt.1.and.nlevel(n).ne.level) then
nlevel(n)=-1
@@ -53,7 +55,9 @@ subroutine timer(dname,k)
on(n)=.false.
! call system_clock(icount,irate)
! ut1=float(icount)/irate
call cpu_time(ut1)
! call cpu_time(ut1)
ut1=secnds(0.0)
ut(n)=ut(n)+ut1-ut0(n)
endif
level=level-1