From e212e76de051bbb33cbb137edca6f89350b5501a Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Tue, 22 Aug 2017 00:21:59 +0000 Subject: [PATCH] More cleanup. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8033 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/fsk4hf/osd174.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/fsk4hf/osd174.f90 b/lib/fsk4hf/osd174.f90 index 1ec1c4e5b..e29fddfdc 100644 --- a/lib/fsk4hf/osd174.f90 +++ b/lib/fsk4hf/osd174.f90 @@ -7,10 +7,10 @@ include "ldpc_174_87_params.f90" integer*1 apmask(N),apmaskr(N) integer*1 gen(K,N) integer*1 genmrb(K,N),g2(N,K) -integer*1 temp(K),m0(K),me(K),mep(K),mi(K),misub(K),e2sub(N-K),e2(N-K),ui(N-K) +integer*1 temp(K),m0(K),me(K),mi(K),misub(K),e2sub(N-K),e2(N-K),ui(N-K) integer*1 r2pat(N-K) integer indices(N),nxor(N) -integer*1 cw(N),ce(N),c0(N),hdec(N),qi(N) +integer*1 cw(N),ce(N),c0(N),hdec(N) integer*1 decoded(K) integer indx(N) real llr(N),rx(N),absrx(N) @@ -343,7 +343,7 @@ subroutine fetchit(reset,e2,ntau,i1,i2) integer*1 e2(ntau) logical reset common/boxes/indexes,fp,np - save lastpat,inext,first + save lastpat,inext if(reset) then lastpat=-1