w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 05:38:46 -05:00
Code Issues Packages Projects Releases Wiki Activity

Remove some experimental code.

Browse Source
This commit is contained in:
Steven Franke 2020-05-06 07:17:42 -05:00
parent df7224abee
commit 8f6663b0d7
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/mskrtd.f90
View File

@ -44,7 +44,6 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,hiscall, &
logical*1 seenb4 logical*1 seenb4
logical*1 bflag logical*1 bflag
logical*1 bvar logical*1 bvar
logical*1 doosd
data first/.true./ data first/.true./
data iavpatterns/ & data iavpatterns/ &
@ -143,8 +142,6 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,hiscall, &
npat=NPATTERNS npat=NPATTERNS
if( ndepth .eq. 1 ) npat=0 if( ndepth .eq. 1 ) npat=0
if( ndepth .eq. 2 ) npat=2 if( ndepth .eq. 2 ) npat=2
doosd=.false.
if( ntol .le. 50 ) doosd = .true.
do iavg=1,npat do iavg=1,npat
iavmask=iavpatterns(1:8,iavg) iavmask=iavpatterns(1:8,iavg)
navg=sum(iavmask) 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.2) ic0=max(1,ic0-1)
if(is.eq.3) ic0=min(NSPM,ic0+1) if(is.eq.3) ic0=min(NSPM,ic0+1)
ct=cshift(c,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 if(ndecodesuccess .gt. 0) then
tdec=tsec+xmc(iavg)*tframe tdec=tsec+xmc(iavg)*tframe
goto 900 goto 900