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
This commit is contained in:
Joe Taylor 2015-11-23 15:57:33 +00:00
parent c91d47d602
commit 07080f7ef3
2 changed files with 4 additions and 1 deletions

View File

@ -304,9 +304,10 @@ set (wsjt_FSRCS
lib/flat2.f90 lib/flat2.f90
lib/flat4.f90 lib/flat4.f90
lib/flat65.f90 lib/flat65.f90
lib/fmtmsg.f90
lib/foldspec9f.f90 lib/foldspec9f.f90
lib/four2a.f90 lib/four2a.f90
lib/fmtmsg.f90 lib/fqso_first.f90
lib/gen4.f90 lib/gen4.f90
lib/gen65.f90 lib/gen65.f90
lib/gen9.f90 lib/gen9.f90

View File

@ -68,6 +68,8 @@ subroutine jt65a(dd0,npts,newdat,nutc,nf1,nf2,nfqso,ntol,nsubmode, &
call timer('sync65 ',1) call timer('sync65 ',1)
endif endif
call fqso_first(nfqso,ntol,ca,ncand)
nvec=ntrials nvec=ntrials
if(ncand.gt.75) then if(ncand.gt.75) then
! write(*,*) 'Pass ',ipass,' ncandidates too large ',ncand ! write(*,*) 'Pass ',ipass,' ncandidates too large ',ncand