From b3f62276e752003429fbdb273f07cf7c4015a251 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 3 Apr 2019 12:45:38 -0400
Subject: [PATCH] Fix the DT values generated in ft4sim_mult.

---
 lib/ft4/ft4sim_mult.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/ft4/ft4sim_mult.f90 b/lib/ft4/ft4sim_mult.f90
index 30831522e..065b2a76b 100644
--- a/lib/ft4/ft4sim_mult.f90
+++ b/lib/ft4/ft4sim_mult.f90
@@ -6,7 +6,7 @@ program ft4sim_mult
   use packjt77
   include 'ft4_params.f90'               !FT4 protocol constants
   parameter (NWAVE=NN*NSPS)
-  parameter (NZZ=18*3456)                !Length of .wav file, 62208 i*2 samples
+  parameter (NZZ=65760)                  !Length of .wav file (4.48+1.0)*12000
   type(hdr) h                            !Header for .wav file
   character arg*12,fname*17,cjunk*4
   character msg37*37,msgsent37*37,c77*77
@@ -65,7 +65,7 @@ program ft4sim_mult
         nwave0=(NN+2)*NSPS
         call gen_ft4wave(itone,NN,NSPS,12000.0,f0,wave0,nwave0)
 
-        k0=nint(xdt/dt)
+        k0=nint((xdt+0.5)/dt)
         if(k0.lt.1) k0=1
         tmp(:k0-1)=0.0
         tmp(k0:k0+nwave0-1)=wave0