From b32799d2b80eee2137cb44e772d2ad34b1f9d271 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 31 Jan 2019 14:06:05 -0500
Subject: [PATCH] Add xdt to lines printed by 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 4e2e31dc8..adf053666 100644
--- a/lib/ft4/ft4sim_mult.f90
+++ b/lib/ft4/ft4sim_mult.f90
@@ -104,8 +104,8 @@ program ft4sim_mult
  ! Insert this signal into wave() array
         sig=sqrt(2*bandwidth_ratio) * 10.0**(0.05*isnr)
         wave=wave + sig*tmp
-        write(*,1100) fname,isig,isnr,nint(f0),msg37
-1100    format(a17,i4,i5,i6,2x,a37)
+        write(*,1100) fname(1:13),isig,isnr,xdt,nint(f0),msg37
+1100    format(a13,i4,i5,f5.1,i6,2x,a37)
      enddo   ! isig
    
 100  backspace 10