diff --git a/lib/msk144decodeframe.f90 b/lib/msk144decodeframe.f90 index f200d3ee5..24119b9bd 100644 --- a/lib/msk144decodeframe.f90 +++ b/lib/msk144decodeframe.f90 @@ -1,4 +1,4 @@ -subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess,doosd) +subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess) ! use timer_module, only: timer use packjt77 parameter (NSPM=864) @@ -15,7 +15,6 @@ subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess,doosd) real softbits(144) real llr(128) logical first,unpk77_success - logical*1 doosd data first/.true./ data s8/0,1,1,1,0,0,1,0/ save first,cb,fs,pi,twopi,dt,s8,pp @@ -94,12 +93,9 @@ subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess,doosd) llr=2.0*llr/(sigma*sigma) max_iterations=10 -! call timer('bpdec128_90 ',0) apmask=0 dmin=0.0 call bpdecode128_90(llr,apmask,max_iterations,decoded77,cw,nharderror,niterations) -! if(doosd .and. nharderror .lt. 0) call osd128_90(llr,apmask,3,decoded77,cw,nharderror,dmin) -! call timer('bpdec128_90 ',1) if( nharderror .ge. 0 .and. nharderror .lt. 18 ) then nsuccess=1 write(c77,'(77i1)') decoded77 @@ -108,7 +104,6 @@ subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess,doosd) nsuccess=0 else call unpack77(c77,1,msgreceived,unpk77_success) -!if(unpk77_success) write(*,*) msgreceived,nharderror,dmin,nbadsync1,nbadsync2 if(.not.unpk77_success) nsuccess=0 endif endif diff --git a/lib/msk144spd.f90 b/lib/msk144spd.f90 index c32d2c08e..2bc6dcfef 100644 --- a/lib/msk144spd.f90 +++ b/lib/msk144spd.f90 @@ -31,7 +31,6 @@ subroutine msk144spd(cbig,n,ntol,nsuccess,msgreceived,fc,fret,tret,navg,ct, & real tpat(NPATTERNS) real*8 dt, df, fs, pi, twopi logical first - logical*1 doosd data first/.true./ data navpatterns/ & 0,1,0, & @@ -44,9 +43,6 @@ subroutine msk144spd(cbig,n,ntol,nsuccess,msgreceived,fc,fret,tret,navg,ct, & save df,first,fs,pi,twopi,dt,tframe,rcw - doosd=.false. - if( ntol .le. 50 ) doosd = .true. - if(first) then nmatchedfilter=1 ! define half-sine pulse and raised-cosine edge window @@ -183,7 +179,7 @@ subroutine msk144spd(cbig,n,ntol,nsuccess,msgreceived,fc,fret,tret,navg,ct, & if( is.eq.2) ic0=max(1,ic0-1) if( is.eq.3) ic0=min(NSPM,ic0+1) ct=cshift(c,ic0-1) - call msk144decodeframe(ct,softbits,msgreceived,ndecodesuccess,doosd) + call msk144decodeframe(ct,softbits,msgreceived,ndecodesuccess) if( ndecodesuccess .gt. 0 ) then tret=(nstart(icand)+NSPM/2)/fs fret=fest