From 274633875768c3e31f797c363574109533eb41fc Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Thu, 18 Apr 2019 17:19:56 -0500 Subject: [PATCH] Measure time spent in subtract4.f90. --- lib/ft4/subtractft4.f90 | 1 - lib/ft4_decode.f90 | 2 ++ 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/ft4/subtractft4.f90 b/lib/ft4/subtractft4.f90 index cb9f2626a..83470d7ea 100644 --- a/lib/ft4/subtractft4.f90 +++ b/lib/ft4/subtractft4.f90 @@ -11,7 +11,6 @@ subroutine subtractft4(dd,itone,f0,dt) parameter (NMAX=18*3456,NFRAME=(103+2)*512) parameter (NFFT=NMAX,NFILT=1400) -! parameter (NFFT=NMAX,NFILT=400) real*4 dd(NMAX), window(-NFILT/2:NFILT/2), xjunk complex cref,camp,cfilt,cw integer itone(103) diff --git a/lib/ft4_decode.f90 b/lib/ft4_decode.f90 index 491782a91..b505762e4 100644 --- a/lib/ft4_decode.f90 +++ b/lib/ft4_decode.f90 @@ -464,7 +464,9 @@ contains if(unpk77_success) then call get_ft4_tones_from_77bits(message77,i4tone) dt=real(ibest)/750.0 + call timer('subtract',0) call subtractft4(dd,i4tone,f0,dt) + call timer('subtract',1) endif idupe=0 do i=1,ndecodes