w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-21 19:48:54 -04:00
Code Issues Packages Projects Releases Wiki Activity

Increase ibwb; enforce MAX_CALLERS.

Browse Source
This commit is contained in:
Joe Taylor 2023-02-11 14:08:10 -05:00
parent 260f867cb9
commit 31bc12e3b9
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/q65_decode.f90
View File

@ -169,7 +169,8 @@ contains
if(mode_q65.eq.2) ibwa=10 !Q65-60E
!###
ibwb=min(15,ibwa+4)
! ibwb=min(15,ibwa+4)
ibwb=min(15,ibwa+6)
maxiters=40
if(iand(ndepth,3).eq.2) maxiters=60
if(iand(ndepth,3).eq.3) then
@ -177,7 +178,6 @@ contains
ibwb=ibwb+2
maxiters=100
endif
! print*,'a',iand(ndepth,3),ibwa,ibwb,maxiters
! Generate codewords for full-AP list decoding
if(ichar(hiscall(1:1)).eq.0) hiscall=' '
@ -185,7 +185,8 @@ contains
ncw=0
if(nqd.eq.1 .or. lagain) then
if(ncontest.eq.1) then
call q65_set_list2(mycall,hiscall,hisgrid,callers,nhist2,codewords,ncw)
call q65_set_list2(mycall,hiscall,hisgrid,callers,nhist2, &
codewords,ncw)
else
call q65_set_list(mycall,hiscall,hisgrid,codewords,ncw)
endif

5
lib/qra/q65/q65.f90
View File

@ -895,6 +895,11 @@ subroutine q65_hist2(msg0,callers,nhist2)
enddo
if(newcall .and. isgrid(g4)) then
if(nhist2.eq.MAX_CALLERS) then
! Purge the oldest caller
callers(1:MAX_CALLERS-1)=callers(2:MAX_CALLERS)
nhist2=nhist2-1
endif
nhist2=nhist2+1
callers(nhist2)%call=c6
callers(nhist2)%grid=g4