FT8: Make nagain work.

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

View File

@ -118,7 +118,7 @@ contains
dd1=dd
go to 900
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
dd(1:n)=dd1(1:n)
dd(n+1:)=iwave(n+1:)
@ -131,7 +131,8 @@ contains
endif
ifa=nfa
ifb=nfb
if(nagain) then
if(nzhsym.eq.50 .and. nagain) then
dd=iwave
ifa=nfqso-20
ifb=nfqso+20
endif