From 50555def5c1c6a34ff91de205b69cd37c93ba96e Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Tue, 22 Aug 2017 00:17:23 +0000 Subject: [PATCH] Delete unused array. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8032 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/fsk4hf/ft8b.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/fsk4hf/ft8b.f90 b/lib/fsk4hf/ft8b.f90 index 3d3a62299..308f04206 100644 --- a/lib/fsk4hf/ft8b.f90 +++ b/lib/fsk4hf/ft8b.f90 @@ -12,7 +12,7 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,napwid, & real a(5) real s1(0:7,ND),s2(0:7,NN) real ps(0:7) - real bmeta(3*ND),bmetb(3*ND),bmetap(3*ND) + real bmeta(3*ND),bmetap(3*ND) real llr(3*ND),llra(3*ND),llr0(3*ND),llrap(3*ND) !Soft symbols real dd0(15*12000) integer*1 decoded(KK),apmask(3*ND),cw(3*ND)