From 14d18306e6754c215419839b197d38812139d733 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 2 Feb 2021 09:58:04 -0500
Subject: [PATCH] Use single_decode and lagain as intended in Q65.

---
 lib/decoder.f90    | 1 +
 lib/q65_decode.f90 | 8 +++++---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/lib/decoder.f90 b/lib/decoder.f90
index fb4e80c01..5a254a56b 100644
--- a/lib/decoder.f90
+++ b/lib/decoder.f90
@@ -208,6 +208,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
      call my_q65%decode(q65_decoded,id2,params%nutc,params%ntr,          &
           params%nsubmode,params%nfqso,params%ntol,params%ndepth,        &
           params%nfa,params%nfb,logical(params%nclearave),               &
+          single_decode,logical(params%nagain),                          &
           logical(params%newdat),params%emedelay,mycall,hiscall,hisgrid, &
           params%nQSOProgress,ncontest,logical(params%lapcqonly),navg0)
      call timer('dec_q65 ',1)
diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90
index 2d83d0728..0bea7d8ee 100644
--- a/lib/q65_decode.f90
+++ b/lib/q65_decode.f90
@@ -27,8 +27,8 @@ module q65_decode
 contains
 
   subroutine decode(this,callback,iwave,nutc,ntrperiod,nsubmode,nfqso,   &
-       ntol,ndepth,nfa0,nfb0,lclearave,lnewdat0,emedelay,mycall,         &
-       hiscall,hisgrid,nQSOprogress,ncontest,lapcqonly,navg0)
+       ntol,ndepth,nfa0,nfb0,lclearave,single_decode,lagain,lnewdat0,    &
+       emedelay,mycall,hiscall,hisgrid,nQSOprogress,ncontest,lapcqonly,navg0)
 
 ! Top-level routine that organizes the decoding of Q65 signals
 ! Input:  iwave            Raw data, i*2
@@ -67,6 +67,7 @@ contains
     integer dat4(13)                      !Decoded message as 12 6-bit integers
     integer dgen(13)
     logical lclearave,lnewdat0,lapcqonly,unpk77_success
+    logical single_decode,lagain
     complex, allocatable :: c00(:)        !Analytic signal, 6000 Sa/s
     complex, allocatable :: c0(:)         !Analytic signal, 6000 Sa/s
 
@@ -260,6 +261,7 @@ contains
             idec,0,ntrperiod)
     endif
     navg0=1000*navg(0) + navg(1)
+    if(single_decode .or. lagain) go to 900
 
     do icand=1,ncand
 ! Prepare for single-period candidate decodes with iaptype = 0, 1, 2, or 4
@@ -333,7 +335,7 @@ contains
        endif
     enddo
 
-    return
+900 return
   end subroutine decode
 
 end module q65_decode