w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-09-27 15:46:51 -04:00
Code Issues Packages Projects Releases Wiki Activity

Quantize received msk40 reports.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6996 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-08-04 15:50:09 +00:00
parent 0f80024ec9
commit ca93ec1779
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lib/detectmsk40.f90
View File

@ -205,10 +205,22 @@ subroutine detectmsk40(cbig,n,pchk_file,mycall,hiscall,lines,nmessages, &
t0=times(ip) + t00 t0=times(ip) + t00
cdat=cbig(imid-NPTS/2+1:imid+NPTS/2) cdat=cbig(imid-NPTS/2+1:imid+NPTS/2)
ferr=ferrs(ip) ferr=ferrs(ip)
nsnr=nint(snrs(ip))
xsnr=snrs(ip) xsnr=snrs(ip)
if( nsnr .lt. -5 ) nsnr=-5 if( xsnr .lt. -1.5 ) then
if( nsnr .gt. 25 ) nsnr=25 nsnr=-3
else if( xsnr .lt. 1.5 ) then
nsnr=0
else if( xsnr .lt. 4.5 ) then
nsnr=3
else if( xsnr .lt. 8.0 ) then
nsnr=6
else if( xsnr .lt. 11.5 ) then
nsnr=10
else if( xsnr .lt. 14.5 ) then
nsnr=13
else
nsnr=16
endif
! remove coarse freq error ! remove coarse freq error
call tweak1(cdat,NPTS,-(1500+ferr),cdat) call tweak1(cdat,NPTS,-(1500+ferr),cdat)