w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-09-05 22:57:47 -04:00
Code Issues Packages Projects Releases Wiki Activity

Zero the wave() array at start of subroutine sfox_wave_gfsk.f90.

Browse Source
This commit is contained in:
Joe Taylor 2024-06-20 13:45:51 -04:00
parent 25097b6baa
commit 149c177d5f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/superfox/sfox_wave_gfsk.f90
View File

@ -31,6 +31,7 @@ subroutine sfox_wave_gfsk(fname)
enddo enddo
first=.false. first=.false.
endif endif
wave=0.
open(25,file=trim(fname),status='unknown',err=999) open(25,file=trim(fname),status='unknown',err=999)
read(25,'(20i4)',err=999,end=999) itone read(25,'(20i4)',err=999,end=999) itone
@ -48,7 +49,6 @@ subroutine sfox_wave_gfsk(fname)
dphi(0:2*NSPS-1)=dphi(0:2*NSPS-1)+dphi_peak*itone(1)*pulse(NSPS+1:3*NSPS) dphi(0:2*NSPS-1)=dphi(0:2*NSPS-1)+dphi_peak*itone(1)*pulse(NSPS+1:3*NSPS)
dphi(NSYM*NSPS:(NSYM+2)*NSPS-1)=dphi(NSYM*NSPS:(NSYM+2)*NSPS-1)+dphi_peak*itone(NSYM)*pulse(1:2*NSPS) dphi(NSYM*NSPS:(NSYM+2)*NSPS-1)=dphi(NSYM*NSPS:(NSYM+2)*NSPS-1)+dphi_peak*itone(NSYM)*pulse(1:2*NSPS)
wave=0.
phi=0.d0 phi=0.d0
f0=750.0d0 f0=750.0d0
dphi=dphi+twopi*f0*dt dphi=dphi+twopi*f0*dt