Skip to content
Snippets Groups Projects
Commit 6043e974 authored by Christophe Geuzaine's avatar Christophe Geuzaine
Browse files

more fixes for 2.2 - this routine should be rewritten to simply ignire any...

more fixes for 2.2 - this routine should be rewritten to simply ignire any fields that it does not need
parent b4e25b34
No related branches found
No related tags found
No related merge requests found
......@@ -124,11 +124,7 @@ elseif (strcmp(tline, '$MeshFormat'))
disp (sprintf('Syntax error (no $EndMeshFormat) in: %s', filename));
fileformat = 0;
end
tline = fgetl(fid); % this should be $Nodes
if (feof(fid))
disp (sprintf('Syntax error (no $Nodes) in: %s', filename));
fileformat = 0;
end
tline = fgetl(fid); % this should be $Nodes or $PhysicalNames
end
if (~fileformat)
......@@ -136,6 +132,16 @@ if (~fileformat)
return
end
%% Read (and ignore) physical names
if strcmp(tline, '$PhysicalNames')
np = fscanf(fid, '%d', 1);
tline = fgetl(fid);
for I = 1:np+2
tline = fgetl(fid);
end
end
%% Read nodes
if strcmp(tline, '$NOD') || strcmp(tline, '$Nodes')
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment