From 16dc71018cabc610f8c7e103b7b5d80f2186ab52 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Thu, 4 Aug 2016 16:01:53 +0000
Subject: [PATCH] Go back to any integer for printed short msg report.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6997 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/detectmsk40.f90 | 18 +++---------------
 1 file changed, 3 insertions(+), 15 deletions(-)

diff --git a/lib/detectmsk40.f90 b/lib/detectmsk40.f90
index 68b4abef7..d8489e860 100644
--- a/lib/detectmsk40.f90
+++ b/lib/detectmsk40.f90
@@ -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)