Better format for echosim file-by-file output to screen.

This commit is contained in:
Joe Taylor 2022-08-30 15:33:34 -04:00
parent 66b90904cf
commit 09c3412aca

View File

@ -92,8 +92,8 @@ program echosim
open(10,file=fname,status='unknown',access='stream') open(10,file=fname,status='unknown',access='stream')
write(10) h,iwave !Save to *.wav file write(10) h,iwave !Save to *.wav file
close(10) close(10)
write(*,1110) ifile,xdt,f0,snrdb,fname write(*,1110) ifile,f0,fdop,fspread,snrdb,fname
1110 format(i4,f7.2,f8.2,f7.1,2x,a17) 1110 format(i4,4f7.1,2x,a17)
enddo enddo
999 end program echosim 999 end program echosim