Save fspread in .wav file as float, not double.

This commit is contained in:
Joe Taylor
2022-08-17 10:50:35 -04:00
parent bfb5665c36
commit 75516e8ce4
+2 -3
View File
@@ -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))