w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Decode Q65 from within MAP65. Not very elegant yet, and has some problems.

Browse Source
This commit is contained in:
Joe Taylor 2021-04-05 16:54:00 -04:00
parent bfaff3c6d8
commit 701b883bcf
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libm65/map65a.f90
View File

@ -212,6 +212,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
call flush(13) call flush(13)
go to 999 go to 999
endif endif
call timer('decode1a',0) call timer('decode1a',0)
ifreq=i ifreq=i
ikHz=nint(freq+0.5*(nfa+nfb)-foffset)-nfshift ikHz=nint(freq+0.5*(nfa+nfb)-foffset)-nfshift
@ -223,9 +224,9 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
call timer('decode1a',1) call timer('decode1a',1)
if(nqd.eq.2) then if(nqd.eq.2) then
call timer('qra64 ',0) call timer('qra64 ',0)
call qra64b(nutc,nqd,fcenter,nfcal,nfsample,ikhz, & call q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz, &
mousedf,ntol,xpol,mycall,hiscall,hisgrid, & mousedf,ntol,xpol,mycall,hiscall,hisgrid, &
mode64,nwrite_qra64) mode64)
call timer('qra64 ',1) call timer('qra64 ',1)
cycle cycle
endif endif