function write_audio(nom,s,Fe);
% Syntax: write_audio(nom,s,Fe)

if floor(Fe) ~= Fe,
  error('Sampling rate must be an integer number !');
end  

parole=fopen(nom,'w');
fwrite(parole,s,'int16');
fclose(parole);

comm=['!bplay -s 11025 -b 16 ' nom ' 2>&/dev/null'];
%disp(comm);
eval(comm);


