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

increase # of early decodes; check bounds before increasing iterator

Browse Source
This commit is contained in:
Brian Moran 2024-08-12 07:25:41 -07:00
parent a304177491
commit 3fdd69d021
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/ft8_decode.f90
View File

@ -44,7 +44,7 @@ contains
class(ft8_decoder), intent(inout) :: this class(ft8_decoder), intent(inout) :: this
procedure(ft8_decode_callback) :: callback procedure(ft8_decode_callback) :: callback
parameter (MAXCAND=600,MAX_EARLY=100) parameter (MAXCAND=600,MAX_EARLY=200)
real*8 tsec,tseq real*8 tsec,tseq
real sbase(NH1) real sbase(NH1)
real candidate(3,MAXCAND) real candidate(3,MAXCAND)
@ -60,7 +60,7 @@ contains
character datetime*13,msg37*37 character datetime*13,msg37*37
character*37 allmessages(200) character*37 allmessages(200)
character*12 ctime character*12 ctime
integer allsnrs(200) integer allsnrs(MAX_EARLY)
integer itone(NN) integer itone(NN)
integer itone_save(NN,MAX_EARLY) integer itone_save(NN,MAX_EARLY)
real f1_save(MAX_EARLY) real f1_save(MAX_EARLY)
@ -215,6 +215,9 @@ contains
if(msg37.eq.allmessages(id)) ldupe=.true. if(msg37.eq.allmessages(id)) ldupe=.true.
enddo enddo
if(.not.ldupe) then if(.not.ldupe) then
if(ndecodes.ge.MAX_EARLY) then
cycle
endif
ndecodes=ndecodes+1 ndecodes=ndecodes+1
allmessages(ndecodes)=msg37 allmessages(ndecodes)=msg37
allsnrs(ndecodes)=nsnr allsnrs(ndecodes)=nsnr