w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-16 09:01:59 -05:00
Code Issues Packages Projects Releases Wiki Activity

Implement message averaging (very basic) for QRA66.

Browse Source
This commit is contained in:
Joe Taylor 2020-08-05 16:34:49 -04:00
parent 6c8c9183aa
commit 30e34bf1c4
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lib/qra66_decode.f90
View File

@ -45,9 +45,10 @@ contains
logical lapdx,ltext logical lapdx,ltext
complex c0(0:NFFT1-1) !Analytic signal, 6000 S/s complex c0(0:NFFT1-1) !Analytic signal, 6000 S/s
real s3(-64:127,63) real s3(-64:127,63)
real s3a(-64:127,63)
real a(5) real a(5)
data nc1z/-1/,nc2z/-1/,ng2z/-1/,maxaptypez/-1/ data nc1z/-1/,nc2z/-1/,ng2z/-1/,maxaptypez/-1/
save nc1z,nc2z,ng2z,maxaptypez save nc1z,nc2z,ng2z,maxaptypez,nsave,s3a
this%callback => callback this%callback => callback
nsps=1800 nsps=1800
@ -80,6 +81,8 @@ contains
nc2z=nc2 nc2z=nc2
ng2z=ng2 ng2z=ng2
maxaptypez=maxaptype maxaptypez=maxaptype
s3a=0.
nsave=0
endif endif
naptype=maxaptype naptype=maxaptype
@ -115,16 +118,31 @@ contains
if(xx.gt.s3max) s3(-64:127,j)=s3(-64:127,j)*s3max/xx if(xx.gt.s3max) s3(-64:127,j)=s3(-64:127,j)*s3max/xx
enddo enddo
!Call Nico's QRA64 decoder ! Call Nico's QRA64 decoder
call timer('qra64_de',0) call timer('qra64_de',0)
call qra64_dec(s3,nc1,nc2,ng2,naptype,0,nSubmode,b90, & call qra64_dec(s3,nc1,nc2,ng2,naptype,0,nSubmode,b90, &
nFadingModel,dat4,snr2,irc) nFadingModel,dat4,snr2,irc)
call timer('qra64_de',1) call timer('qra64_de',1)
if(irc.lt.0) then
! No luck so far. Try for an average decode.
call timer('qra64_av',0)
s3a=s3a+s3
nsave=nsave+1
if(nsave.ge.2) then
call qra64_dec(s3a,nc1,nc2,ng2,naptype,0,nSubmode,b90, &
nFadingModel,dat4,snr2,irc)
if(irc.ge.0) irc=10*nsave + irc
endif
call timer('qra64_av',1)
endif
snr2=snr2 + 5.563 !10*log(6912/1920) snr2=snr2 + 5.563 !10*log(6912/1920)
if(irc.gt.0) call badmsg(irc,dat4,nc1,nc2,ng2) if(irc.gt.0) call badmsg(irc,dat4,nc1,nc2,ng2)
decoded=' ' decoded=' '
if(irc.ge.0) then if(irc.ge.0) then
nsave=0
s3a=0.
call unpackmsg(dat4,decoded) !Unpack the user message call unpackmsg(dat4,decoded) !Unpack the user message
call fmtmsg(decoded,iz) call fmtmsg(decoded,iz)
if(index(decoded,"000AAA ").ge.1) then if(index(decoded,"000AAA ").ge.1) then