From ceb8ae610a429a2aca18a3a3b33141f1c19daf4c Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Mon, 4 May 2020 13:58:17 -0500
Subject: [PATCH] Oops - decoding depths were set for uncoupled decoding.

---
 lib/ft8/ft8b.f90 | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/ft8/ft8b.f90 b/lib/ft8/ft8b.f90
index 638b75557..4e69cff9f 100644
--- a/lib/ft8/ft8b.f90
+++ b/lib/ft8/ft8b.f90
@@ -406,14 +406,14 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon,     &
      call timer('bpd174_91 ',1)
      dmin=0.0
      if(nharderrors.lt.0 .and. ncheck.le.30 .and. ndepth.ge.2) then
-        ndeep=ndepth
-!ndeep=ndepth-1
+!        ndeep=ndepth
+        ndeep=ndepth-1
         if(abs(nfqso-f1).le.napwid .or. abs(nftx-f1).le.napwid .or. ncontest.eq.7) then
-           ndeep=4  
-!ndeep=3  
+!           ndeep=4  
+           ndeep=3  
         endif
-        if(nagain) ndeep=5
-!if(nagain) ndeep=4
+!        if(nagain) ndeep=5
+        if(nagain) ndeep=4
         call timer('osd174_91 ',0)
         Keff=91
 !        call osd174_91(llrz,Keff,apmask,ndeep,message91,cw,nharderrors,dmin)