% function y = dat2wav(name, fa, nBits, ampthresh)
%

function y = dat2wav(name, fa, nBits, ampthresh)

datfile = sprintf('%s.dat', name);
wavfile = sprintf('%s.wav', name);

fid = fopen(datfile,'r');
data_float = fread(fid, 'float32');
fclose(fid);

a = max(abs(data_float));
ks = ampthresh/a;

data = (2^(nBits-1))*ks*data_float;
wavw16(data,fa,wavfile);