function write_audio(nom,s,Fe);
% Syntax: write_audio(nom,s,Fe)
%
% Fonction ecrivante le signal dans un fichier L16
% Chemin: rep. de travail
% Extension: .l16
% le fichier est ensuite envoye a la sortie en utilisant send_sound
% AVEC LA FREQUENCE D'ECHANTILLONAGE Fe
% la fonction ne corrige pas les erreurs de format [-32768,32767]

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

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

comm=['!send_sound ' nom extension ' -srate ' int2str(Fe)];
%disp(comm);
eval(comm);


