w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-08-26 13:35:39 -04:00
Code Issues Packages Projects Releases Wiki Activity

Pass state of "More CQs" checkbox to sftx in cmsg(1)(40:40).

Browse Source
This commit is contained in:
Joe Taylor
2024-03-22 14:00:03 -04:00
parent 0c38d3b83f
commit 2ec0a54d2a
4 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/ft8/foxgen.f90
+3 -3
View File
@@ -17,7 +17,7 @@ subroutine foxgen(bSuperFox,fname)
parameter (NN=79,ND=58,NSPS=4*1920)
parameter (NWAVE=(160+2)*134400*4) !the biggest waveform we generate (FST4-1800 at 48kHz)
parameter (NFFT=614400,NH=NFFT/2)
logical*1 bSuperFox
logical*1 bSuperFox,bMoreCQs
character*(*) fname
character*40 cmsg
character*37 msg,msgsent
@@ -27,12 +27,12 @@ subroutine foxgen(bSuperFox,fname)
real x(NFFT)
real*8 dt,twopi,f0,fstep,dfreq,phi,dphi
complex cx(0:NH)
common/foxcom/wave(NWAVE),nslots,nfreq,i3bit(5),cmsg(5),mycall(12)
common/foxcom/wave(NWAVE),nslots,nfreq,i3bit(5),cmsg(5),mycall(12),bMoreCQs
common/foxcom2/itone2(NN),msgbits2(77)
equivalence (x,cx),(y,cy)
if(bSuperFox) then
! call foxgen2(nslots,cmsg,cmnd)
if(bMoreCQs) cmsg(1)(40:40)='1'
open(25,file=fname,status='unknown')
rewind(25)
write(25,'(a40)') cmsg(1:nslots)
lib/ft8/foxgen_wrap.f90
+2 -2
View File
@@ -2,12 +2,12 @@ subroutine foxgen_wrap(msg40,msgbits,itone)
parameter (NN=79,ND=58,KK=77,NSPS=4*1920)
parameter (NWAVE=(160+2)*134400*4) !the biggest waveform we generate (FST4-1800)
logical*1 bMoreCQs
character*40 msg40,cmsg
character*12 mycall12
integer*1 msgbits(KK),msgbits2
integer itone(NN)
common/foxcom/wave(NWAVE),nslots,nfreq,i3bit(5),cmsg(5),mycall12
common/foxcom/wave(NWAVE),nslots,nfreq,i3bit(5),cmsg(5),mycall12,bMoreCQs
common/foxcom2/itone2(NN),msgbits2(KK)
nslots=1