FT8: Make nagain work.

This commit is contained in:
Steven Franke 2020-12-26 09:46:19 -06:00
parent 1ba788ecc3
commit d8be8ff0e5

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