w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-10-31 23:57:10 -04:00
Code Issues Packages Projects Releases Wiki Activity

Only train on DX Call when Rx Equalization is checked.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7502 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-01-15 18:39:18 +00:00
parent 98b23a308a
commit add31e211e
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/msk144signalquality.f90
View File

@ -1,5 +1,5 @@
subroutine msk144signalquality(cframe,snr,freq,t0,softbits,msg,dxcall, &
nbiterrors,eyeopening,trained,pcoeffs)
subroutine msk144signalquality(cframe,snr,freq,t0,softbits,msg,dxcall, &
brxequal,nbiterrors,eyeopening,trained,pcoeffs)
character*22 msg,msgsent
character*12 dxcall
@ -23,6 +23,7 @@
integer values(8)
logical*1 bcontest
logical*1 brxequal
logical*1 first
logical*1 currently_training
logical*1 trained
@ -76,7 +77,8 @@ write(*,*) 'reset to untrained state '
indx_dxcall=index(msg,trim(dxcall))
msg_has_dxcall = indx_dxcall .ge. 4
if( msg_has_dxcall .and. (.not. trained) .and. .not. currently_training ) then
if( brxequal .and. msg_has_dxcall .and. (.not. trained) .and. &
.not. currently_training ) then
currently_training=.true.
training_dxcall=trim(dxcall)
trained_dxcall(1:12)=' '
@ -139,9 +141,9 @@ write(*,*) 'start training on call ',training_dxcall
enddo
eyeopening=eyetop-eyebot
is_training_frame = &
(snr.gt.5.0 .and.(nbiterrors.lt.7)) .and. &
(abs(t0-tlast) .gt. 0.072) .and. &
is_training_frame = &
(snr.gt.5.0 .and.(nbiterrors.lt.7)) .and. &
(abs(t0-tlast) .gt. 0.072) .and. &
msg_has_dxcall
if( currently_training .and. is_training_frame ) then
twopi=8.0*atan(1.0)

2
lib/mskrtd.f90
View File

@ -186,7 +186,7 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,mygrid,hiscall, &
if(.not. bshdecode) then
call msk144signalquality(ct,snr0,fest,tdec,softbits,msgreceived,hiscall, &
ncorrected,eyeopening,trained,pcoeffs)
brxequal,ncorrected,eyeopening,trained,pcoeffs)
endif
decsym=' & '