w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-09-03 13:47:51 -04:00
Code Issues Packages Projects Releases Wiki Activity

Measure time spent in subtract4.f90.

Browse Source
This commit is contained in:
Steve Franke 2019-04-18 17:19:56 -05:00
parent e8d17a9898
commit 2746338757
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/ft4/subtractft4.f90
View File

@ -11,7 +11,6 @@ subroutine subtractft4(dd,itone,f0,dt)
parameter (NMAX=18*3456,NFRAME=(103+2)*512) parameter (NMAX=18*3456,NFRAME=(103+2)*512)
parameter (NFFT=NMAX,NFILT=1400) parameter (NFFT=NMAX,NFILT=1400)
! parameter (NFFT=NMAX,NFILT=400)
real*4 dd(NMAX), window(-NFILT/2:NFILT/2), xjunk real*4 dd(NMAX), window(-NFILT/2:NFILT/2), xjunk
complex cref,camp,cfilt,cw complex cref,camp,cfilt,cw
integer itone(103) integer itone(103)

2
lib/ft4_decode.f90
View File

@ -464,7 +464,9 @@ contains
if(unpk77_success) then if(unpk77_success) then
call get_ft4_tones_from_77bits(message77,i4tone) call get_ft4_tones_from_77bits(message77,i4tone)
dt=real(ibest)/750.0 dt=real(ibest)/750.0
call timer('subtract',0)
call subtractft4(dd,i4tone,f0,dt) call subtractft4(dd,i4tone,f0,dt)
call timer('subtract',1)
endif endif
idupe=0 idupe=0
do i=1,ndecodes do i=1,ndecodes