From b002b165bc1577780d6635fbbb4efd8638dc0019 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Sat, 19 Mar 2016 00:37:37 +0000
Subject: [PATCH] Do the ismo loop only in "Single decode" mode.

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

diff --git a/lib/decode65a.f90 b/lib/decode65a.f90
index 4ba248640..704da79f5 100644
--- a/lib/decode65a.f90
+++ b/lib/decode65a.f90
@@ -84,14 +84,10 @@ subroutine decode65a(dd,npts,newdat,nqd,f0,nflip,mode65,ntrials,     &
 
   call timer('dec65b  ',0)
   qualbest=0.
-  minsmo=0
   maxsmo=0
-  if(mode65.ge.2) then
-     minsmo=nint(width/df)
-     maxsmo=2*minsmo
-  endif
+  if(mode65.ge.2) maxsmo=3
   nn=0
-  do ismo=0,3
+  do ismo=0,maxsmo
      if(ismo.gt.0) then
         w=width/df
         if(ismo.eq.2) w=1.414*w
@@ -130,8 +126,6 @@ subroutine decode65a(dd,npts,newdat,nqd,f0,nflip,mode65,ntrials,     &
      endif
   enddo
 
-!  print*,width,minsmo,maxsmo,nsmo,nn
-
   if(nft.eq.2) then
      decoded=decoded_best
      qual=qualbest