w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-30 04:32:27 -04:00
Code Issues Packages Projects Releases Wiki Activity

Add calls to timer() around calls to subtractft8().

Browse Source
This commit is contained in:
Joe Taylor 2020-02-28 11:25:32 -05:00
parent 2e696574c9
commit f9322f2b43
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/ft8/ft8b.f90
View File

@ -418,7 +418,11 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon, &
endif endif
nbadcrc=0 ! If we get this far: valid codeword, valid (i3,n3), nonquirky message. nbadcrc=0 ! If we get this far: valid codeword, valid (i3,n3), nonquirky message.
call get_ft8_tones_from_77bits(message77,itone) 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, & ! write(21,3001) nzhsym,npasses,nqsoprogress,ipass,iaptype,lsubtract, &
! f1,xdt,msg37(1:22); flush(21) ! f1,xdt,msg37(1:22); flush(21)
!3001 format(5i3,L3,f7.1,f7.2,2x,a22) !3001 format(5i3,L3,f7.1,f7.2,2x,a22)

2
lib/ft8_decode.f90
View File

@ -76,9 +76,11 @@ contains
ndecodes=ndec_early ndecodes=ndec_early
endif endif
if(nzhsym.eq.50 .and. ndec_early.ge.1) then if(nzhsym.eq.50 .and. ndec_early.ge.1) then
call timer('sub_ft8a',0)
do i=1,ndec_early do i=1,ndec_early
call subtractft8(dd,itone_save(1,i),f1_save(i),xdt_save(i),.true.) call subtractft8(dd,itone_save(1,i),f1_save(i),xdt_save(i),.true.)
enddo enddo
call timer('sub_ft8a',1)
endif endif
ifa=nfa ifa=nfa
ifb=nfb ifb=nfb