From 07080f7ef3d417c3e581cbe2d3d1e0f1c7ca4927 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Mon, 23 Nov 2015 15:57:33 +0000
Subject: [PATCH] Decode JT65 first at QSO frequency.

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

diff --git a/CMakeLists.txt b/CMakeLists.txt
index a31edd41b..cb3cdf8e2 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -304,9 +304,10 @@ set (wsjt_FSRCS
   lib/flat2.f90
   lib/flat4.f90
   lib/flat65.f90
+  lib/fmtmsg.f90
   lib/foldspec9f.f90
   lib/four2a.f90
-  lib/fmtmsg.f90
+  lib/fqso_first.f90
   lib/gen4.f90
   lib/gen65.f90
   lib/gen9.f90
diff --git a/lib/jt65a.f90 b/lib/jt65a.f90
index 7ae2656be..ca365841b 100644
--- a/lib/jt65a.f90
+++ b/lib/jt65a.f90
@@ -68,6 +68,8 @@ subroutine jt65a(dd0,npts,newdat,nutc,nf1,nf2,nfqso,ntol,nsubmode,   &
       call timer('sync65  ',1)
     endif
 
+    call fqso_first(nfqso,ntol,ca,ncand)
+
     nvec=ntrials
     if(ncand.gt.75) then
 !      write(*,*) 'Pass ',ipass,' ncandidates too large ',ncand