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

Enable lapcqonly for FT4. This disables AP for all but CQ messages if 5 minutes or more have elapsed since the last Tx.

Browse Source
This commit is contained in:
Steve Franke 2019-05-26 13:25:36 -05:00
parent 11065c349c
commit f00bcebb9c
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/decoder.f90
View File

@ -152,8 +152,8 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
if(params%nmode.eq.5) then if(params%nmode.eq.5) then
call timer('decft4 ',0) call timer('decft4 ',0)
call my_ft4%decode(ft4_decoded,id2,params%nQSOProgress,params%nfqso, & call my_ft4%decode(ft4_decoded,id2,params%nQSOProgress,params%nfqso, &
params%nutc,params%nfa,params%nfb,params%ndepth,ncontest, & params%nutc,params%nfa,params%nfb,params%ndepth, &
mycall,hiscall) logical(params%lapcqonly),ncontest,mycall,hiscall)
call timer('decft4 ',1) call timer('decft4 ',1)
go to 800 go to 800
endif endif

5
lib/ft4_decode.f90
View File

@ -24,7 +24,7 @@ module ft4_decode
contains contains
subroutine decode(this,callback,iwave,nQSOProgress,nfqso, & subroutine decode(this,callback,iwave,nQSOProgress,nfqso, &
nutc,nfa,nfb,ndepth,ncontest,mycall,hiscall) nutc,nfa,nfb,ndepth,lapcqonly,ncontest,mycall,hiscall)
use timer_module, only: timer use timer_module, only: timer
use packjt77 use packjt77
include 'ft4/ft4_params.f90' include 'ft4/ft4_params.f90'
@ -75,6 +75,7 @@ contains
logical one(0:255,0:7) ! 256 4-symbol sequences, 8 bits logical one(0:255,0:7) ! 256 4-symbol sequences, 8 bits
logical first, dobigfft logical first, dobigfft
logical dosubtract,doosd logical dosubtract,doosd
logical, intent(in) :: lapcqonly
data icos4a/0,1,3,2/ data icos4a/0,1,3,2/
data icos4b/1,0,2,3/ data icos4b/1,0,2,3/
@ -407,6 +408,7 @@ contains
apmag=maxval(abs(llra))*1.1 apmag=maxval(abs(llra))*1.1
npasses=3+nappasses(nQSOProgress) npasses=3+nappasses(nQSOProgress)
if(lapcqonly) npasses=4
if(ndepth.eq.1) npasses=3 if(ndepth.eq.1) npasses=3
if(ncontest.ge.5) npasses=3 ! Don't support Fox and Hound if(ncontest.ge.5) npasses=3 ! Don't support Fox and Hound
do ipass=1,npasses do ipass=1,npasses
@ -421,6 +423,7 @@ contains
if(ipass .gt. 3) then if(ipass .gt. 3) then
llrd=llra llrd=llra
iaptype=naptypes(nQSOProgress,ipass-3) iaptype=naptypes(nQSOProgress,ipass-3)
if(lapcqonly) iaptype=1
! ncontest=0 : NONE ! ncontest=0 : NONE
! 1 : NA_VHF ! 1 : NA_VHF