From f6a8a179dc627fd283c9404a33c651c53578200c Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Tue, 30 Jun 2020 18:15:35 -0500
Subject: [PATCH] Hardwire for 50-bit messages.

---
 lib/fst240_decode.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/fst240_decode.f90 b/lib/fst240_decode.f90
index ab2013e5c..720d5ec8b 100644
--- a/lib/fst240_decode.f90
+++ b/lib/fst240_decode.f90
@@ -238,7 +238,7 @@ contains
       r_data(nfft1+1:nfft1+2)=0.0
       call four2a(r_data,nfft1,1,-1,0)
       c_bigfft=cmplx(r_data(1:nfft1+2:2),r_data(2:nfft1+2:2))
-
+iwspr=1
       if(iwspr.eq.0) then
          itype1=1
          itype2=1
@@ -437,7 +437,7 @@ contains
                apmag=maxval(abs(llra))*1.1
                ntmax=nblock+nappasses(nQSOProgress)
                if(lapcqonly) ntmax=nblock+1
-               if(ndepth.eq.1) ntmax=nblock
+               if(ndeep.eq.1) ntmax=nblock
                apmask=0
 
                if(iqorw.eq.2) then ! 50-bit msgs, no ap decoding