w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-05 16:12:30 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix bugs in gen_ft8wave.f90.

Browse Source
This commit is contained in:
Steve Franke 2019-02-21 15:56:21 -06:00
parent 9425bd4d37
commit d9c99601ae
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/ft8/gen_ft8wave.f90
View File

@ -7,16 +7,12 @@ subroutine gen_ft8wave(itone,nsym,nsps,fsample,f0,cwave,nwave)
real wave(nwave) real wave(nwave)
complex cwave(nwave) complex cwave(nwave)
real pulse(5760) real pulse(5760)
real dphi(0:(nsym+2)*nint(fsample)-1) real dphi(0:(nsym+2)*nsps-1)
integer itone(nsym) integer itone(nsym)
logical first logical first
data first/.true./ data first/.true./
save pulse,first,twopi,dt,hmod save pulse,first,twopi,dt,hmod
if(nsave .gt. MAX_SECONDS*nint(fsample)) then
print*,"gen_ft8wave: ERROR - waveform length too large."
endif
if(first) then if(first) then
twopi=8.0*atan(1.0) twopi=8.0*atan(1.0)
dt=1.0/fsample dt=1.0/fsample