w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-25 22:45:18 -04:00
Code Issues Packages Projects Releases Wiki Activity

For unknown reasons, AP decode of [CQ ? ?] is not working.

Browse Source 
Temporary work-around effectively sets MyCall to "CQ    ". 


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6930 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-07-19 15:49:06 +00:00
parent f92afadc6c
commit 2df82d2b12
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/qra64a.f90
View File

@ -126,10 +126,14 @@ subroutine qra64a(dd,nf1,nf2,nfqso,ntol,mycall_12,hiscall_12,hisgrid_6, &
call packcall(mycall,nmycall,ltext) call packcall(mycall,nmycall,ltext)
call packcall(hiscall,nhiscall,ltext) call packcall(hiscall,nhiscall,ltext)
call packgrid(hisgrid,nhisgrid,ltext) call packgrid(hisgrid,nhisgrid,ltext)
call packcall("CQ ",ncq,ltext)
nmycall=ncq
snr2=-99. snr2=-99.
ttot=0. ttot=0.
do naptype=4,0,-1 do naptype=4,0,-1
call system_clock(count0,clkfreq) call system_clock(count0,clkfreq)
if(naptype.eq.0) nmycall=ncq
call qra64_dec(s3,nmycall,nhiscall,nhisgrid,naptype,dat4,snr2,irc) call qra64_dec(s3,nmycall,nhiscall,nhisgrid,naptype,dat4,snr2,irc)
if(irc.ge.0) then if(irc.ge.0) then
call unpackmsg(dat4,decoded) !Unpack the user message call unpackmsg(dat4,decoded) !Unpack the user message