Fix a bug that didn't show up when I compiled on the Mac.

This commit is contained in:
Steve Franke 2019-04-12 18:54:33 -05:00
parent cd8ea16f40
commit f296e37630

View File

@ -9,7 +9,7 @@ subroutine gen_ft8wave(itone,nsym,nsps,bt,fsample,f0,cwave,wave,icmplx,nwave)
real pulse(23040)
real dphi(0:(nsym+2)*nsps-1)
integer itone(nsym)
data first/.true./,ibt0/0/
data ibt0/0/
save pulse,twopi,dt,hmod,ibt0
ibt=nint(10*bt)