From 96287a078ae9f3fdf44b0ef645cd942e30f0295f Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Wed, 3 Oct 2012 16:42:48 +0000
Subject: [PATCH] Reduce size of ssym to ssym(0:7,69).

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2641 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/spec9.f90  | 14 ++++++++------
 mainwindow.cpp |  2 +-
 2 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/lib/spec9.f90 b/lib/spec9.f90
index 34fa9df39..14aeea605 100644
--- a/lib/spec9.f90
+++ b/lib/spec9.f90
@@ -3,7 +3,7 @@ subroutine spec9(c0,npts8,nsps,f0a,lagpk,fpk,i1SoftSymbols)
   parameter (MAXFFT=31500)
   complex c0(0:npts8-1)
   real s(0:MAXFFT-1)
-  real ssym(0:8,85)
+  real ssym(0:7,69)
   complex c(0:MAXFFT-1)
   integer*1 i1SoftSymbolsScrambled(207)
   integer*1 i1SoftSymbols(207)
@@ -34,7 +34,10 @@ subroutine spec9(c0,npts8,nsps,f0a,lagpk,fpk,i1SoftSymbols)
   istart=1520
   nsym=min((npts8-istart)/nsps8,85)
 
+  k=0
   do j=1,nsym
+     if(isync(j).eq.1) cycle
+     k=k+1
      ia=(j-1)*nsps8 + istart
      ib=ia+nsps8-1
      c(0:nfft-1)=c0(ia:ib)
@@ -48,7 +51,7 @@ subroutine spec9(c0,npts8,nsps,f0a,lagpk,fpk,i1SoftSymbols)
      call four2a(c,nfft,1,-1,1)
      do i=0,nfft-1
         sx=real(c(i))**2 + aimag(c(i))**2
-        if(i.ge.1 .and. i.le.8) ssym(ig(i-1)+1,j)=sx
+        if(i.ge.1 .and. i.le.8) ssym(ig(i-1),k)=sx
         s(i)=s(i) + sx
      enddo
   enddo
@@ -56,17 +59,16 @@ subroutine spec9(c0,npts8,nsps,f0a,lagpk,fpk,i1SoftSymbols)
   m0=3
   ntones=8
   k=0
-  do j=1,nsym
-     if(isync(j).eq.1) cycle
+  do j=1,69
      do m=m0-1,0,-1                   !Get bit-wise soft symbols
         n=2**m
         r1=0.
         r2=0.
         do i=0,ntones-1
            if(iand(i,n).ne.0) then
-              r1=max(r1,ssym(i+1,j))
+              r1=max(r1,ssym(i,j))
            else
-              r2=max(r2,ssym(i+1,j))
+              r2=max(r2,ssym(i,j))
            endif
         enddo
         k=k+1
diff --git a/mainwindow.cpp b/mainwindow.cpp
index 13ff4e726..b96be69b8 100644
--- a/mainwindow.cpp
+++ b/mainwindow.cpp
@@ -1,4 +1,4 @@
-//------------------------------------------------------------- MainWindow
+//------------------------------------------------------------ MainWindow
 #include "mainwindow.h"
 #include "ui_mainwindow.h"
 #include "devsetup.h"