From b5a2f420333ec108ae725fd3ef61ef6a3e55d17a Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Sun, 21 Jan 2018 17:53:36 +0000
Subject: [PATCH] Generalize osd174.f90 to permit deeper decoding, but keep
 depth settings as they were.1

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8428 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/ft8/osd174.f90 | 24 ++++++------------------
 1 file changed, 6 insertions(+), 18 deletions(-)

diff --git a/lib/ft8/osd174.f90 b/lib/ft8/osd174.f90
index 0660d31ea..45d7faa4b 100644
--- a/lib/ft8/osd174.f90
+++ b/lib/ft8/osd174.f90
@@ -139,15 +139,9 @@ elseif(ndeep.eq.5) then
 endif
 
 do iorder=1,nord
-   if( iorder.eq. 1 ) then
-      misub(1:K-1)=0
-      misub(K)=1
-      iflag=K
-   elseif( iorder.eq. 2 ) then
-      misub(1:K-2)=0
-      misub(K-1:K)=1 
-      iflag=K-1
-   endif
+   misub(1:K-iorder)=0
+   misub(K-iorder+1:K)=1
+   iflag=K-iorder+1
    do while(iflag .ge.0)
       if(iorder.eq.nord .and. npre1.eq.0) then
          iend=iflag
@@ -209,15 +203,9 @@ if(npre2.eq.1) then
    ntotal2=0
    reset=.true.
 ! Now run through again and do the second pre-processing rule
-   if(nord.eq.1) then
-      misub(1:K-1)=0
-      misub(K)=1 
-      iflag=K
-   elseif(nord.eq.2) then
-      misub(1:K-1)=0
-      misub(K-1:K)=1
-      iflag=K-1
-   endif
+   misub(1:K-nord)=0
+   misub(K-nord+1:K)=1
+   iflag=K-nord+1
    do while(iflag .ge.0)
       me=ieor(m0,misub)
       call mrbencode(me,ce,g2,N,K)