From 56ce1b7441da5c1d56dbd61393c3e4a4b28bfa70 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sun, 3 Mar 2024 15:35:57 -0500
Subject: [PATCH] Complete the sfox wavefile generation.
---
lib/superfox/sfox_wave.f90 | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lib/superfox/sfox_wave.f90 b/lib/superfox/sfox_wave.f90
index a603d81d9..2358ee113 100644
--- a/lib/superfox/sfox_wave.f90
+++ b/lib/superfox/sfox_wave.f90
@@ -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