function  SauvePgm(nom,image)
%  SauvePgm(nom,image) : Sauvegarde d'une image au format pgm
%    exemple : SauvePgm('resultat.pgm',image);
%
image=uint8(image);
[nbli nbco]=size(image);

s=size(nom);
s=s(2);
while nom(s)==' '
    s=s-1;
end

fid=fopen(nom(1:s),'w');

fprintf(fid,'P5\n');
fprintf(fid,'# Created by SauvePgm (J.M. Odobez / Iup MIME)\n');
fprintf(fid,'%d %d\n%d\n',nbco,nbli,255);  


%%% Recuperation des donnees dans une matrice
image=uint8(image);
image=image';
Image=fwrite(fid,image,'uchar');

fclose(fid);
