w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 12:23:37 -05:00
Code Issues Packages Projects Releases Wiki Activity

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.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7501 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-01-15 18:25:54 +00:00
parent 18a80232cc
commit 5fb051e3cb
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/mskrtd.f90
View File

@ -96,7 +96,7 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,mygrid,hiscall, &
fac=1.0/rms fac=1.0/rms
d(1:NZ)=fac*d(1:NZ) d(1:NZ)=fac*d(1:NZ)
d(NZ+1:NFFT1)=0. 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. ! Calculate average power for each frame and for the entire block.
! If decode is successful, largest power will be taken as signal+noise. ! 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 endif
decsym=' & ' decsym=' & '
if( brxequal .and. (.not. trained) ) decsym=' ^ ' if( brxequal ) decsym=' ^ '
if( brxequal .and. trained ) decsym=' $ ' ! if( brxequal .and. (.not. trained) ) decsym=' ^ '
if( (.not. brxequal) .and. trained ) decsym=' @ ' ! if( brxequal .and. trained ) decsym=' $ '
! if( (.not. brxequal) .and. trained ) decsym=' @ '
if( msgreceived(1:1).eq.'<') then if( msgreceived(1:1).eq.'<') then
ncorrected=0 ncorrected=0
eyeopening=0.0 eyeopening=0.0