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

Make the simulated data files slightly longer so that WSJT-X can decode them.

Browse Source
This commit is contained in:
Joe Taylor 2019-01-29 13:55:04 -05:00
parent 3ab7c1edf6
commit 0a6d67c1d6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ft4/ft4sim.f90
View File

@ -144,11 +144,13 @@ program ft4sim
endif endif
if(any(abs(wave).gt.32767.0)) print*,"Warning - data will be clipped." if(any(abs(wave).gt.32767.0)) print*,"Warning - data will be clipped."
iwave=nint(wave) iwave=nint(wave)
h=default_header(12000,NMAX) h=default_header(12000,NMAX+2208)
write(fname,1102) ifile write(fname,1102) ifile
1102 format('000000_',i6.6,'.wav') 1102 format('000000_',i6.6,'.wav')
open(10,file=fname,status='unknown',access='stream') open(10,file=fname,status='unknown',access='stream')
write(10) h,iwave !Save to *.wav file write(10) h,iwave !Save to *.wav file
iwave(1:2208)=0
write(10) iwave(1:2208) !Add 0.5 s of zeroes
close(10) close(10)
write(*,1110) ifile,xdt,f0,snrdb,fname write(*,1110) ifile,xdt,f0,snrdb,fname
1110 format(i4,f7.2,f8.2,f7.1,2x,a17) 1110 format(i4,f7.2,f8.2,f7.1,2x,a17)