w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-10-31 13:10:19 -04:00
Code Issues Packages Projects Releases Wiki Activity

Go back to any integer for printed short msg report.

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

18
lib/detectmsk40.f90
View File

@ -206,21 +206,9 @@ subroutine detectmsk40(cbig,n,pchk_file,mycall,hiscall,lines,nmessages, &
cdat=cbig(imid-NPTS/2+1:imid+NPTS/2)
ferr=ferrs(ip)
xsnr=snrs(ip)
if( xsnr .lt. -1.5 ) then
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
nsnr=nint(snrs(ip))
if( nsnr .lt. -5 ) nsnr=-5
if( nsnr .gt. 25 ) nsnr=25
! remove coarse freq error
call tweak1(cdat,NPTS,-(1500+ferr),cdat)