From 9f7a6a498818b9c0199e970375258f3f2e75cbac Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 25 Sep 2024 11:20:45 -0400 Subject: [PATCH] Do the NQU1RKS patch for SF message type i3=3, the CQ message. --- lib/superfox/sfox_pack.f90 | 15 ++++++++++++++- lib/superfox/sfox_unpack.f90 | 2 ++ 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/lib/superfox/sfox_pack.f90 b/lib/superfox/sfox_pack.f90 index cf4ee826a..c5a6d94cc 100644 --- a/lib/superfox/sfox_pack.f90 +++ b/lib/superfox/sfox_pack.f90 @@ -8,7 +8,7 @@ subroutine sfox_pack(line,ckey,bMoreCQs,bSendMsg,freeTextMsg,xin) integer*8 n47,n58,now integer*1 xin(0:49) !Packed message as 7-bit symbols logical*1 bMoreCQs,bSendMsg - logical text + logical text,allz character*120 line !SuperFox message pieces character*10 ckey character*26 freeTextMsg @@ -146,6 +146,19 @@ subroutine sfox_pack(line,ckey,bMoreCQs,bSendMsg,freeTextMsg,xin) read(msgbits(i0:i0+27),'(b28)') n28 if(n28.eq.0) write(msgbits(i0:i0+27),'(b28.28)') NQU1RKS enddo + else if(i3.eq.3) then + allz=.true. + do i=0,6 + i0=i*32 + 74 + read(msgbits(i0:i0+31),'(b32)') n32 + if(n32.ne.0) allz=.false. + enddo + if(allz) then + do i=0,6 + i0=i*32 + 74 + write(msgbits(i0:i0+31),'(b32.32)') NQU1RKS + enddo + endif endif read(msgbits,1004) xin(0:46) diff --git a/lib/superfox/sfox_unpack.f90 b/lib/superfox/sfox_unpack.f90 index 54828c5a1..56168963c 100644 --- a/lib/superfox/sfox_unpack.f90 +++ b/lib/superfox/sfox_unpack.f90 @@ -54,6 +54,8 @@ subroutine sfox_unpack(nutc,x,nsnr,f0,dt0,foxcall,notp) call unpackgrid(n15,grid4) msg(1)='CQ '//trim(foxcall)//' '//grid4 write(*,1100) nutc,nsnr,dt0,nint(f0),trim(msg(1)) + read(msgbits(74:105),'(b32)') n32 + if(n32.eq.NQU1RKS) go to 100 call unpacktext77(msgbits(74:144),freeTextMsg(1:13)) call unpacktext77(msgbits(145:215),freeTextMsg(14:26)) do i=26,1,-1