w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

FT8: Make nagain work.

Browse Source
This commit is contained in:
Steven Franke 2020-12-26 09:46:19 -06:00 committed by Bill Somerville
parent 41297e8761
commit a657ce29a7
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/ft8_decode.f90
View File

@ -118,7 +118,7 @@ contains
dd1=dd dd1=dd
go to 900 go to 900
endif endif
if(nzhsym.eq.50 .and. ndec_early.ge.1) then if(nzhsym.eq.50 .and. ndec_early.ge.1 .and. .not.nagain) then
n=47*3456 n=47*3456
dd(1:n)=dd1(1:n) dd(1:n)=dd1(1:n)
dd(n+1:)=iwave(n+1:) dd(n+1:)=iwave(n+1:)
@ -131,7 +131,8 @@ contains
endif endif
ifa=nfa ifa=nfa
ifb=nfb ifb=nfb
if(nagain) then if(nzhsym.eq.50 .and. nagain) then
dd=iwave
ifa=nfqso-20 ifa=nfqso-20
ifb=nfqso+20 ifb=nfqso+20
endif endif