w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-03 06:32:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Temporary (partial?) workaround for qra decoder bug.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6835 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-06-30 23:17:40 +00:00
parent 0384d312a6
commit deb89de196
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/jt65_decode.f90
View File

@ -101,7 +101,8 @@ contains
! This is QRA65 mode ! This is QRA65 mode
! print*,'A',nsubmode,nsubmode,nsubmode ! print*,'A',nsubmode,nsubmode,nsubmode
call qra02(dd,nf1,nf2,nfqso,ntol,mycall,sync,nsnr,dtx,nfreq,decoded,nft) call qra02(dd,nf1,nf2,nfqso,ntol,mycall,sync,nsnr,dtx,nfreq,decoded,nft)
! print*,'Z',nft,decoded ! print*,'Z',sync,nft,decoded
if(sync.lt.12.8) go to 900 !### Temporary ###
if (associated(this%callback)) then if (associated(this%callback)) then
ndrift=0 ndrift=0
nflip=1 nflip=1
@ -111,7 +112,6 @@ contains
call this%callback(sync,nsnr,dtx,nfreq,ndrift, & call this%callback(sync,nsnr,dtx,nfreq,ndrift, &
nflip,width,decoded,nft,nqual,nsmo,1,minsync) nflip,width,decoded,nft,nqual,nsmo,1,minsync)
end if end if
go to 900 go to 900
endif endif

10
lib/qra02.f90
View File

@ -128,11 +128,13 @@ subroutine qra02(dd,nf1,nf2,nfqso,ntol,mycall_12,sync,nsnr,dtx,nfreq, &
! flush(75) ! flush(75)
! flush(76) ! flush(76)
nsnr=-30
if(sync.gt.1.0) nsnr=nint(10.0*log10(sync) - 38.0)
decoded=' ' decoded=' '
nft=100 nft=100
nsnr=-30
if(sync.gt.1.0) nsnr=nint(10.0*log10(sync) - 38.0)
if(sync.lt.12.8) go to 900 !### Temporary ###
! print*,'A',sync,nsnr
mycall=mycall_12(1:6) !### May need fixing ### mycall=mycall_12(1:6) !### May need fixing ###
call packcall(mycall,nmycall,ltext) call packcall(mycall,nmycall,ltext)
! write(77,3002) s3 ! write(77,3002) s3
@ -147,5 +149,5 @@ subroutine qra02(dd,nf1,nf2,nfqso,ntol,mycall_12,sync,nsnr,dtx,nfreq, &
nft=100 + irc nft=100 + irc
endif endif
return 900 return
end subroutine qra02 end subroutine qra02