From 5fb051e3cbf9614a9e03e55787b7e0eb312ead74 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Sun, 15 Jan 2017 18:25:54 +0000 Subject: [PATCH] Never apply dynamic phase coeffs. Measure phase response for DX Call and write coeffs, as before. Rx Equalization is still hardwired for K9AN's TS2000. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7501 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/mskrtd.f90 | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lib/mskrtd.f90 b/lib/mskrtd.f90 index 0e2904854..651871638 100644 --- a/lib/mskrtd.f90 +++ b/lib/mskrtd.f90 @@ -96,7 +96,7 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,mygrid,hiscall, & fac=1.0/rms d(1:NZ)=fac*d(1:NZ) d(NZ+1:NFFT1)=0. - call analytic(d,NZ,NFFT1,cdat,pcoeffs,brxequal,.true.) + call analytic(d,NZ,NFFT1,cdat,pcoeffs,brxequal,.false.) ! never apply dynamic coeffs ! Calculate average power for each frame and for the entire block. ! If decode is successful, largest power will be taken as signal+noise. @@ -190,9 +190,10 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,mygrid,hiscall, & endif decsym=' & ' - if( brxequal .and. (.not. trained) ) decsym=' ^ ' - if( brxequal .and. trained ) decsym=' $ ' - if( (.not. brxequal) .and. trained ) decsym=' @ ' + if( brxequal ) decsym=' ^ ' +! if( brxequal .and. (.not. trained) ) decsym=' ^ ' +! if( brxequal .and. trained ) decsym=' $ ' +! if( (.not. brxequal) .and. trained ) decsym=' @ ' if( msgreceived(1:1).eq.'<') then ncorrected=0 eyeopening=0.0