w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-09-02 13:17:49 -04:00
Code Issues Packages Projects Releases Wiki Activity

Generalize osd174.f90 to permit deeper decoding, but keep depth settings as they were.1

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8428 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2018-01-21 17:53:36 +00:00
parent 4f7c7f6a09
commit b5a2f42033
1 changed files with 6 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lib/ft8/osd174.f90
View File

@ -139,15 +139,9 @@ elseif(ndeep.eq.5) then
endif endif
do iorder=1,nord do iorder=1,nord
if( iorder.eq. 1 ) then misub(1:K-iorder)=0
misub(1:K-1)=0 misub(K-iorder+1:K)=1
misub(K)=1 iflag=K-iorder+1
iflag=K
elseif( iorder.eq. 2 ) then
misub(1:K-2)=0
misub(K-1:K)=1
iflag=K-1
endif
do while(iflag .ge.0) do while(iflag .ge.0)
if(iorder.eq.nord .and. npre1.eq.0) then if(iorder.eq.nord .and. npre1.eq.0) then
iend=iflag iend=iflag
@ -209,15 +203,9 @@ if(npre2.eq.1) then
ntotal2=0 ntotal2=0
reset=.true. reset=.true.
! Now run through again and do the second pre-processing rule ! Now run through again and do the second pre-processing rule
if(nord.eq.1) then misub(1:K-nord)=0
misub(1:K-1)=0 misub(K-nord+1:K)=1
misub(K)=1 iflag=K-nord+1
iflag=K
elseif(nord.eq.2) then
misub(1:K-1)=0
misub(K-1:K)=1
iflag=K-1
endif
do while(iflag .ge.0) do while(iflag .ge.0)
me=ieor(m0,misub) me=ieor(m0,misub)
call mrbencode(me,ce,g2,N,K) call mrbencode(me,ce,g2,N,K)