From 3dc2f1b6c8d4c518f3f224984070578a86d57bf5 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Tue, 5 Apr 2016 18:28:17 +0000
Subject: [PATCH] Correct min value of i0a.

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

diff --git a/lib/softsym9w.f90 b/lib/softsym9w.f90
index b3b08eb73..d84b46f7b 100644
--- a/lib/softsym9w.f90
+++ b/lib/softsym9w.f90
@@ -15,12 +15,12 @@ subroutine softsym9w(id2,npts,xdt0,f0,width,nsubmode,xdt1,i1softsymbols)
   df=12000.0/NFFT
 !  i0a=1
 !  i0b=5*12000
-  i0a=max(0.0,(xdt0-1.0)*12000.0)
+  i0a=max(1.0,(xdt0-1.0)*12000.0)
   i0b=(xdt0+1.0)*12000.0
   k1=nint((f0-0.5*width)/df)
   k2=nint((f0+0.5*width)/df)
   smax=0.
-  i0pk=0
+  i0pk=1
   i1softsymbols=0
 
   do i0=i0a,i0b,432