function [p,e,t] = charger_maillage(fic);

fichier = fic;
%fichier=strcat('~/MAILLAGES/',fic);
fid=fopen(fichier,'r');
fscanf(fid,'%s %d \n %s \n %d \n %s',5);
np=fscanf(fid,'%d',1);
p = fscanf(fid,'%f %f %d\n',[3,np]);
fscanf(fid,'%s',1);
nbarete=fscanf(fid,'%d',1);
Edge = fscanf(fid,'%d %d %d\n',[3,nbarete]);
e = [Edge(1,:); Edge(2,:); zeros(2,nbarete) ; Edge(3,:) ; zeros(2,nbarete) ];
type=fscanf(fid,'%s',1);
ne = 0; t = [];
if (strcmp(type,'Triangles')==1)
  ne = fscanf(fid,'%d',1);
  t = fscanf(fid,'%d %d %d %d\n',[4,ne]);
  type=fscanf(fid,'%s',1);
  if ((strcmp(type,'Quadrangles')==1)|(strcmp(type,'Quadrilaterals')==1))
    quad=1;
  else
    quad=0;
  end
elseif ((strcmp(type,'Quadrangles')==1)|(strcmp(type,'Quadrilaterals')==1))
  quad=1;
end
if (quad==1)
  nq = fscanf(fid,'%d',1);
  q = fscanf(fid,'%d %d %d %d %d\n',[5,ne]);
  t = [[t;zeros(1,ne)],q];
end

fclose(fid);