From 73a69499e445c8fc21d6703e0ece6830b16cfbc6 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Wed, 4 Feb 2015 19:52:37 +0000
Subject: [PATCH] Make the symspec() call in jt9.for consistent with that from
 mainwindow.cpp.

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

diff --git a/lib/jt9.f90 b/lib/jt9.f90
index 64774ce44..217ec44be 100644
--- a/lib/jt9.f90
+++ b/lib/jt9.f90
@@ -91,6 +91,7 @@ program jt9
 
   limtrace=0
   lu=12
+  nflatten=1
 
   do iarg = offset + 1, offset + remain
      call get_command_argument (iarg, optarg, arglen)
@@ -143,7 +144,7 @@ program jt9
 ! Emit signal readyForFFT
            ingain=0
            call timer('symspec ',0)
-           call symspec(k,ntrperiod,nsps,ingain,slope,pxdb,s,df3,ihsym,npts8)
+           call symspec(k,ntrperiod,nsps,ingain,nflatten,pxdb,s,df3,ihsym,npts8)
            call timer('symspec ',1)
            nhsym0=nhsym
            if(ihsym.ge.173) go to 10