From b5f0cc7ea7830790c5226a82f128b783dec44a26 Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Tue, 30 Apr 2019 20:02:42 -0500
Subject: [PATCH] Add a third decoding pass.

---
 lib/ft4_decode.f90 | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/lib/ft4_decode.f90 b/lib/ft4_decode.f90
index b217dbb23..687a4ecc7 100644
--- a/lib/ft4_decode.f90
+++ b/lib/ft4_decode.f90
@@ -215,7 +215,7 @@ contains
       max_iterations=40
       syncmin=1.2
       dosubtract=.true.
-      nsp=2
+      nsp=3
       if(ndepth.lt.3) then 
         nsp=1
         dosubtract=.false.
@@ -223,6 +223,14 @@ contains
       if(ndepth.eq.1) syncmin=2.0 
      
       do isp = 1,nsp
+         if(isp.eq.2) then
+           if(ndecodes.eq.0) exit
+           nd1=ndecodes
+         elseif(isp.eq.3) then
+           nd2=ndecodes-nd1
+           if(nd2.eq.0) exit
+         endif
+          
          candidate=0.0
          ncand=0
          call timer('getcand4',0)
@@ -495,6 +503,7 @@ contains
                   endif
                   nsnr=nint(max(-20.0,xsnr))
                   xdt=ibest/750.0 - 0.5
+!write(21,'(i6.6,i5,2x,f4.1,i6,2x,a37,2x,f4.1,3i3)') nutc,nsnr,xdt,nint(f0),message,sync,iaptype,ipass,isp
                   call this%callback(sync,nsnr,xdt,f0,message,iaptype,qual)
                   exit
                endif