From 8f6663b0d79dd7b26ffc405a6021a436ed791ec0 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Wed, 6 May 2020 07:17:42 -0500 Subject: [PATCH] Remove some experimental code. --- lib/mskrtd.f90 | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/lib/mskrtd.f90 b/lib/mskrtd.f90 index b85f60dd2..3bf62180b 100644 --- a/lib/mskrtd.f90 +++ b/lib/mskrtd.f90 @@ -44,7 +44,6 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,hiscall, & logical*1 seenb4 logical*1 bflag logical*1 bvar - logical*1 doosd data first/.true./ data iavpatterns/ & @@ -143,8 +142,6 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,hiscall, & npat=NPATTERNS if( ndepth .eq. 1 ) npat=0 if( ndepth .eq. 2 ) npat=2 - doosd=.false. - if( ntol .le. 50 ) doosd = .true. do iavg=1,npat iavmask=iavpatterns(1:8,iavg) navg=sum(iavmask) @@ -160,7 +157,7 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,hiscall, & 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 tdec=tsec+xmc(iavg)*tframe goto 900