From 624ef493a8a116fd4e2a8c89f8754410c6c0f918 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Sat, 1 Jul 2017 14:58:34 +0000
Subject: [PATCH] Remove s from ft8b argument list.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7763 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/ft8_decode.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90
index 4ba59f2e0..36df0e2a5 100644
--- a/lib/ft8_decode.f90
+++ b/lib/ft8_decode.f90
@@ -56,7 +56,7 @@ contains
        xdt=candidate(2,icand)
        nsnr=min(99,nint(10.0*log10(sync) - 25.5))    !### empirical ###
        call timer('ft8b    ',0)
-       call ft8b(dd,s,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr)
+       call ft8b(dd,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr)
        nsnr=xsnr       
        xdt=xdt-0.6
        call timer('ft8b    ',1)