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

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))