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

Fix calc of u2 in hint65, in case correct DS message would have been the

Browse Source 
first one tested.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6555 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-03-23 19:36:39 +00:00
parent 0307329014
commit 5a33f2a146
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/hint65.f90
View File

@ -70,12 +70,15 @@ subroutine hint65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,nadd,flip, &
! NB: generation of test messages is not yet complete!
j=0
do i=0,ncalls !### if ncalls is too small, generate random msgs ???
do i=-1,ncalls !### if ncalls is too small, generate random msgs ???
mz=2
if(i.eq.-1) mz=1
if(i.eq.0) mz=65
do m=1,mz
j=j+1
if(i.eq.0) then
if(i.eq.-1) then
msg='0123456789ABC'
else if(i.eq.0) then
if(m.eq.1) msg=mycall//' '//hiscall//' '//hisgrid(1:4)
if(m.eq.2) msg='CQ '//hiscall//' '//hisgrid(1:4)
if(m.ge.3) msg=mycall//' '//hiscall//' '//rpt(m-2)
@ -109,7 +112,7 @@ subroutine hint65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,nadd,flip, &
u1=0.
u1=-99.0
u2=u1
dtotal=199.0
! dtotal=199.0
! Find u1 and u2 (best and second-best) codeword from a list, using
! a bank of matched filters on the symbol spectra s3(i,j).