w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-23 04:28:36 -04:00
Code Issues Packages Projects Releases Wiki Activity

Code cleanup to satisfy warning messages.

Browse Source
This commit is contained in:
Joe Taylor 2024-09-17 13:21:01 -04:00
parent 3c4450cdc2
commit 7895172d3f
3 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/superfox/sfox_pack.f90
View File

@ -4,7 +4,6 @@ subroutine sfox_pack(line,ckey,bMoreCQs,bSendMsg,freeTextMsg,xin)
use packjt
use packjt77
use julian
integer stat
integer*8 n47,n58,now
integer*1 xin(0:49) !Packed message as 7-bit symbols
logical*1 bMoreCQs,bSendMsg
@ -89,7 +88,7 @@ subroutine sfox_pack(line,ckey,bMoreCQs,bSendMsg,freeTextMsg,xin)
1002 format(b28.28)
j=j+28
nh1=nh1+1
if( nht.ge.5 ) exit !At most 5 RR73 callsigns
if(nh1.ge.5) exit !At most 5 RR73 callsigns
enddo
! Process callsigns with a report

2
lib/superfox/sfox_wave_gfsk.f90
View File

@ -12,7 +12,7 @@ subroutine sfox_wave_gfsk(fname)
character*(*) fname
character*40 cmsg2
integer itone(151)
real*8 dt,twopi,f0,baud,phi,dphi_peak
real*8 dt,twopi,f0,phi,dphi_peak
real*8 dphi(0:NPTS-1)
real*8 pulse(3*NSPS)
logical first/.true./

8
lib/superfox/sftx_sub.f90
View File

@ -17,22 +17,14 @@ subroutine sftx_sub(fname,foxcall0,ckey0)
character*120 line !List of SuperFox message pieces
character*40 cmsg !Old-style Fox messages
character*26 freeTextMsg
character*2 arg
character*(*) ckey0
character*10 ckey
character*(*) foxcall0
character*11 foxcall
logical*1 bMoreCQs,bSendMsg
logical crc_ok
real py(0:127,0:127) !Probabilities for received synbol values
integer*8 n47
integer*1 xin(0:49) !Packed message as 7-bit symbols
integer*1 xdec(0:49) !Decoded message
integer*1 y(0:127) !Encoded symbols as i*1 integers
integer*1 ydec(0:127) !Decoded codeword
integer*1 yy(0:10)
integer chansym0(127) !Transmitted symbols, data only
integer chansym(127) !Received symbols, data only
integer isync(24) !Symbol numbers for sync tones
common/foxcom3/nslots,cmsg(5),itone(151)
data isync/1,2,4,7,11,16,22,29,37,39,42,43,45,48,52,57,63,70,78,80, &