function sor = sauver_maillage(p,e,t,fichier)
  
  sor = 0;
  fid = fopen(fichier,'w');
  fprintf(fid,'MeshVersionFormatted 1\n');
  fprintf(fid,'Dimension\n');
  fprintf(fid,'%d\n',2);
  fprintf(fid,'Vertices\n');
  s = size(p); nb_sommets = s(2);
  fprintf(fid,'%d\n',nb_sommets);
  fprintf(fid,'%f %f 0\n',p);
  fprintf(fid,'Edges\n');
  s = size(e); nb_aretes = s(2);
  fprintf(fid,'%d\n',nb_aretes);
  ListeArete = e([1,2,5],:);
  fprintf(fid,'%d %d %d\n',ListeArete);
  fprintf(fid,'Triangles\n');
  s = size(t); nb_triangles = s(2);
  fprintf(fid,'%d\n',nb_triangles);
  fprintf(fid,'%d %d %d %d\n',t);
  fprintf(fid,'End\n');
  fclose(fid);
  