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

Correct the evaluations of ibwa, ibwb. Revert the recent change to line 171 in q65.f90.

Browse Source
This commit is contained in:
Joe Taylor 2023-06-23 12:56:33 -04:00
parent 383ff7e91a
commit c52ba84a49
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/q65_decode.f90
View File

@ -170,8 +170,8 @@ contains
ibwa=1 !Q65-60A ibwa=1 !Q65-60A
if(mode_q65.eq.2) ibwa=3 !Q65-60B if(mode_q65.eq.2) ibwa=3 !Q65-60B
if(mode_q65.eq.4) ibwa=8 !Q65-60C if(mode_q65.eq.4) ibwa=8 !Q65-60C
if(mode_q65.eq.2) ibwa=9 !Q65-60D if(mode_q65.eq.8) ibwa=8 !Q65-60D
if(mode_q65.eq.2) ibwa=10 !Q65-60E if(mode_q65.eq.16) ibwa=8 !Q65-60E
!### !###
! ibwb=min(15,ibwa+4) ! ibwb=min(15,ibwa+4)
@ -180,7 +180,7 @@ contains
if(iand(ndepth,3).eq.2) maxiters=60 if(iand(ndepth,3).eq.2) maxiters=60
if(iand(ndepth,3).eq.3) then if(iand(ndepth,3).eq.3) then
ibwa=max(1,ibwa-2) ibwa=max(1,ibwa-2)
ibwb=ibwb+2 ibwb=min(15,ibwb+2)
maxiters=100 maxiters=100
endif endif

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

@ -168,7 +168,7 @@ subroutine q65_dec0(iavg,iwave,ntrperiod,nfqso,ntol,lclearave, &
better,ccf1) better,ccf1)
call timer('ccf_85 ',1) call timer('ccf_85 ',1)
if(better.ge.1.10) then if(better.ge.1.10 .or. mode_q65.ge.8) then
call timer('list_dec',0) call timer('list_dec',0)
call q65_dec_q3(s1,iz,jz,s3,LL,ipk,jpk,snr2,dat4,idec,decoded) call q65_dec_q3(s1,iz,jz,s3,LL,ipk,jpk,snr2,dat4,idec,decoded)
call timer('list_dec',1) call timer('list_dec',1)