w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 21:58:38 -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)
go to 999
endif
call timer('decode1a',0)
ifreq=i
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)
if(nqd.eq.2) then
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, &
mode64,nwrite_qra64)
mode64)
call timer('qra64 ',1)
cycle
endif