function writel16(nom,s);
% Syntax: writel16(nom,s)
%
% 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
% la fonction ne corrige pas les erreurs de format [-32768,32767]

extension='.l16';

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

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


