From 149c177d5f38d3dc8b4073e2afce0528173d83c7 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 20 Jun 2024 13:45:51 -0400
Subject: [PATCH] Zero the wave() array at start of subroutine
 sfox_wave_gfsk.f90.

---
 lib/superfox/sfox_wave_gfsk.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/superfox/sfox_wave_gfsk.f90 b/lib/superfox/sfox_wave_gfsk.f90
index c0bd094c9..f9d605084 100644
--- a/lib/superfox/sfox_wave_gfsk.f90
+++ b/lib/superfox/sfox_wave_gfsk.f90
@@ -31,6 +31,7 @@ subroutine sfox_wave_gfsk(fname)
     enddo
     first=.false.
   endif
+  wave=0.
  
   open(25,file=trim(fname),status='unknown',err=999)
   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(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
   f0=750.0d0
   dphi=dphi+twopi*f0*dt