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

Don't allow SuperFox to transmit without a valid key.

Browse Source
This commit is contained in:
Joe Taylor 2024-06-01 10:06:01 -04:00
parent 3372fac76b
commit 4506b76671
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/superfox/sfox_wave.f90
View File

@ -10,10 +10,12 @@ subroutine sfox_wave(fname)
real*8 dt,twopi,f0,baud,phi,dphi
common/foxcom/wave(NWAVE)
open(25,file=trim(fname),status='unknown',err=900)
read(25,'(20i4)',err=900,end=900) itone
wave=0.
open(25,file=trim(fname),status='unknown',err=999)
read(25,'(20i4)',err=999,end=999) itone
close(25)
if(itone(1).lt.0 .or. itone(1).gt.128) go to 999
! Generate the SuperFox waveform.
@ -34,7 +36,5 @@ subroutine sfox_wave(fname)
enddo
enddo
900 continue
return
999 return
end subroutine sfox_wave