Increase JT65 decoding depth at QSO frequency.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4936 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2015-02-05 17:43:43 +00:00
parent 5de52a2516
commit 6582f5410c
4 changed files with 9 additions and 10 deletions

View File

@ -1,4 +1,4 @@
subroutine decode65a(dd,npts,newdat,f0,nflip,mode65,sync2,a,dt, & subroutine decode65a(dd,npts,newdat,nqd,f0,nflip,mode65,sync2,a,dt, &
nbmkv,nhist,decoded) nbmkv,nhist,decoded)
! Apply AFC corrections to a candidate JT65 signal, then decode it. ! Apply AFC corrections to a candidate JT65 signal, then decode it.
@ -87,7 +87,7 @@ subroutine decode65a(dd,npts,newdat,f0,nflip,mode65,sync2,a,dt, &
call timer('sh_ffts ',1) call timer('sh_ffts ',1)
call timer('dec65b ',0) call timer('dec65b ',0)
call decode65b(s2,nflip,mode65,nbmkv,nhist,decoded) call decode65b(s2,nflip,mode65,nqd,nbmkv,nhist,decoded)
dt=dt00 + dtbest + 1.7 dt=dt00 + dtbest + 1.7
call timer('dec65b ',1) call timer('dec65b ',1)

View File

@ -1,4 +1,4 @@
subroutine decode65b(s2,nflip,mode65,nbmkv,nhist,decoded) subroutine decode65b(s2,nflip,mode65,nqd,nbmkv,nhist,decoded)
real s2(66,126) real s2(66,126)
real s3(64,63) real s3(64,63)
@ -22,7 +22,7 @@ subroutine decode65b(s2,nflip,mode65,nbmkv,nhist,decoded)
enddo enddo
nadd=mode65 nadd=mode65
call extract(s3,nadd,ncount,nhist,decoded,ltext,nbmkv) !Extract the message call extract(s3,nadd,nqd,ncount,nhist,decoded,ltext,nbmkv) !Extract message
! Suppress "birdie messages" and other garbage decodes: ! Suppress "birdie messages" and other garbage decodes:
if(decoded(1:7).eq.'000AAA ') ncount=-1 if(decoded(1:7).eq.'000AAA ') ncount=-1
if(decoded(1:7).eq.'0L6MWK ') ncount=-1 if(decoded(1:7).eq.'0L6MWK ') ncount=-1

View File

@ -1,11 +1,9 @@
subroutine extract(s3,nadd,ncount,nhist,decoded,ltext,nbmkv) subroutine extract(s3,nadd,nqd,ncount,nhist,decoded,ltext,nbmkv)
!subroutine extract(s3,nadd,nbirdie,afac1,xlambda,ncount,nhist,decoded, &
! ltext,nbmkv,ntest)
! Input: ! Input:
! s3 64-point spectra for each of 63 data symbols ! s3 64-point spectra for each of 63 data symbols
! nadd number of spectra summed into s3 ! nadd number of spectra summed into s3
! nqd 0/1 to indicate decode attempt at QSO frequency
! Output: ! Output:
! ncount number of symbols requiring correction ! ncount number of symbols requiring correction
@ -27,7 +25,8 @@ subroutine extract(s3,nadd,ncount,nhist,decoded,ltext,nbmkv)
nbirdie=7 nbirdie=7
npct=40 npct=40
afac1=10.1 afac1=10.1
xlambda=8.0 xlambda=7.999
if(nqd.eq.1) xlambda=11.999 !Increase depth at QSO frequency
nbmkv=0 nbmkv=0
nfail=0 nfail=0
decoded=' ' decoded=' '

View File

@ -60,7 +60,7 @@ subroutine jt65a(dd0,npts,newdat,nutc,nf1,nf2,nfqso,ntol,nagain,ndecoded)
nflip=nint(flipk) nflip=nint(flipk)
call timer('decod65a',0) call timer('decod65a',0)
call decode65a(dd,npts,newdat,freq,nflip,mode65,sync2,a,dt, & call decode65a(dd,npts,newdat,nqd,freq,nflip,mode65,sync2,a,dt, &
nbmkv,nhist,decoded) nbmkv,nhist,decoded)
call timer('decod65a',1) call timer('decod65a',1)