From ff4e4b18281bac3a6800a48d60d24d3f81a35a6e Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Sat, 1 Jul 2017 14:36:08 +0000 Subject: [PATCH] Don't need to pass s into ft8b anymore. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7760 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/fsk4hf/ft8b.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lib/fsk4hf/ft8b.f90 b/lib/fsk4hf/ft8b.f90 index b4ef75191..5cf7462f9 100644 --- a/lib/fsk4hf/ft8b.f90 +++ b/lib/fsk4hf/ft8b.f90 @@ -1,4 +1,4 @@ -subroutine ft8b(dd0,s,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr) +subroutine ft8b(dd0,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr) use timer_module, only: timer include 'ft8_params.f90' @@ -6,7 +6,6 @@ subroutine ft8b(dd0,s,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr) character*12 recent_calls(NRECENT) character message*22,msgsent*22 real a(5) - real s(NH1,NHSYM) real s1(0:7,ND),s2(0:7,NN) real ps(0:7) real rxdata(3*ND),llr(3*ND) !Soft symbols