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

Complete the sfox wavefile generation.

Browse Source
This commit is contained in:
Joe Taylor 2024-03-03 15:35:57 -05:00
parent 05dd89c552
commit 56ce1b7441
1 changed files with 4 additions and 3 deletions

7
lib/superfox/sfox_wave.f90
View File

@ -21,13 +21,14 @@ subroutine sfox_wave(fname)
baud=12000.d0/NSPS
k=0
do j=1,NN
f=f0 + baud*itone(j)
f=f0 + baud*mod(itone(j),128)
print*,'A',j,itone(j),f
dphi=twopi*f*dt
do ii=1,NSPS
do ii=1,4*NSPS
k=k+1
phi=phi+dphi
xphi=phi
wave(k)=wave(k)+sin(xphi)
wave(k)=sin(xphi)
enddo
enddo