From d8be8ff0e596e9a7c5442a637aa197c1b5c5caf2 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Sat, 26 Dec 2020 09:46:19 -0600
Subject: [PATCH] FT8: Make nagain work.

---
 lib/ft8_decode.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90
index a7a467a31..73d0f8c2a 100644
--- a/lib/ft8_decode.f90
+++ b/lib/ft8_decode.f90
@@ -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