w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-31 05:02:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Send mycall,hiscall,hisgrid into the ft8 decoder.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7797 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-07-06 20:00:42 +00:00
parent ebdb0dfab0
commit 9d56aba490
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/decoder.f90
View File

@ -73,7 +73,8 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
call my_ft8%decode(ft8_decoded,id2,params%nfqso, & call my_ft8%decode(ft8_decoded,id2,params%nfqso, &
newdat,params%nutc,params%nfa, & newdat,params%nutc,params%nfa, &
params%nfb,logical(params%nagain), & params%nfb,logical(params%nagain), &
params%ndepth,params%nsubmode) params%ndepth,params%nsubmode, &
params%mycall,params%hiscall,params%hisgrid)
call timer('decft8 ',1) call timer('decft8 ',1)
go to 800 go to 800
endif endif

2
lib/fsk4hf/sync8.f90
View File

@ -84,7 +84,7 @@ subroutine sync8(dd,nfa,nfb,nfqso,s,candidate,ncand)
candidate0=0. candidate0=0.
k=0 k=0
syncmin=1.5 syncmin=2.0
do i=1,100 do i=1,100
n=ia + indx(iz+1-i) - 1 n=ia + indx(iz+1-i) - 1
if(red(n).lt.syncmin) exit if(red(n).lt.syncmin) exit

4
lib/ft8_decode.f90
View File

@ -23,7 +23,7 @@ module ft8_decode
contains contains
subroutine decode(this,callback,iwave,nfqso,newdat,nutc,nfa, & subroutine decode(this,callback,iwave,nfqso,newdat,nutc,nfa, &
nfb,nagain,ndepth,nsubmode) nfb,nagain,ndepth,nsubmode,mycall,hiscall,hisgrid)
!use wavhdr !use wavhdr
use timer_module, only: timer use timer_module, only: timer
include 'fsk4hf/ft8_params.f90' include 'fsk4hf/ft8_params.f90'
@ -35,6 +35,8 @@ contains
real candidate(3,100) real candidate(3,100)
real dd(15*12000) real dd(15*12000)
logical, intent(in) :: newdat, nagain logical, intent(in) :: newdat, nagain
character*12 mycall, hiscall
character*6 hisgrid
integer*2 iwave(15*12000) integer*2 iwave(15*12000)
character datetime*13,message*22 character datetime*13,message*22
save s,dd save s,dd