w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-02 22:22:33 -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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/superfox/sfox_wave.f90
View File

@ -21,13 +21,14 @@ subroutine sfox_wave(fname)
baud=12000.d0/NSPS baud=12000.d0/NSPS
k=0 k=0
do j=1,NN 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 dphi=twopi*f*dt
do ii=1,NSPS do ii=1,4*NSPS
k=k+1 k=k+1
phi=phi+dphi phi=phi+dphi
xphi=phi xphi=phi
wave(k)=wave(k)+sin(xphi) wave(k)=sin(xphi)
enddo enddo
enddo enddo