From 75516e8ce40514ecad4e07de18656862a0f66796 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 17 Aug 2022 10:50:35 -0400 Subject: [PATCH] Save fspread in .wav file as float, not double. --- lib/save_echo_params.f90 | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lib/save_echo_params.f90 b/lib/save_echo_params.f90 index 9de154722..56930ba8d 100644 --- a/lib/save_echo_params.f90 +++ b/lib/save_echo_params.f90 @@ -1,8 +1,7 @@ subroutine save_echo_params(nDopTotal,nDopAudio,nfrit,f1,fspread,id2,idir) - integer*2 id2(12) - integer*2 id2a(12) - real*8 fspread,fspread0 + integer*2 id2(10) + integer*2 id2a(10) equivalence (nDopTotal0,id2a(1)) equivalence (nDopAudio0,id2a(3)) equivalence (nfrit0,id2a(5))