From f9322f2b43d915516ff3f8bd596ad13e328feabf Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 28 Feb 2020 11:25:32 -0500
Subject: [PATCH] Add calls to timer() around calls to subtractft8().
---
lib/ft8/ft8b.f90 | 6 +++++-
lib/ft8_decode.f90 | 2 ++
2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/lib/ft8/ft8b.f90 b/lib/ft8/ft8b.f90
index ec575426c..7e742aaa7 100644
--- a/lib/ft8/ft8b.f90
+++ b/lib/ft8/ft8b.f90
@@ -418,7 +418,11 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon, &
endif
nbadcrc=0 ! If we get this far: valid codeword, valid (i3,n3), nonquirky message.
call get_ft8_tones_from_77bits(message77,itone)
- if(lsubtract) call subtractft8(dd0,itone,f1,xdt,.false.)
+ if(lsubtract) then
+ call timer('sub_ft8b',0)
+ call subtractft8(dd0,itone,f1,xdt,.false.)
+ call timer('sub_ft8b',1)
+ endif
! write(21,3001) nzhsym,npasses,nqsoprogress,ipass,iaptype,lsubtract, &
! f1,xdt,msg37(1:22); flush(21)
!3001 format(5i3,L3,f7.1,f7.2,2x,a22)
diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90
index d43f5948f..2a4fd1328 100644
--- a/lib/ft8_decode.f90
+++ b/lib/ft8_decode.f90
@@ -76,9 +76,11 @@ contains
ndecodes=ndec_early
endif
if(nzhsym.eq.50 .and. ndec_early.ge.1) then
+ call timer('sub_ft8a',0)
do i=1,ndec_early
call subtractft8(dd,itone_save(1,i),f1_save(i),xdt_save(i),.true.)
enddo
+ call timer('sub_ft8a',1)
endif
ifa=nfa
ifb=nfb