From d5ce2def09abbe61aac4e678ba75cd059bfbd0fb Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Fri, 9 Oct 2020 17:04:06 -0400 Subject: [PATCH] Code cleanup. --- lib/qra_loops.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/qra_loops.f90 b/lib/qra_loops.f90 index 445c7c93f..d59bbe05f 100644 --- a/lib/qra_loops.f90 +++ b/lib/qra_loops.f90 @@ -6,7 +6,7 @@ subroutine qra_loops(c00,npts2,mode,mode64,nsubmode,nFadingModel,minsync, & complex c00(0:720000) !Analytic representation of dd(), 6000 Hz complex c0(0:720000) !Ditto, with freq shift real a(3) !twkfreq params f,f1,f2 - real s3(LN),s3a(LN) !Symbol spectra + real s3(LN) !Symbol spectra integer dat4(12),dat4x(12) !Decoded message (as 12 integers) integer nap(0:11) !AP return codes data nap/0,2,3,2,3,4,2,3,6,4,6,6/