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
Branches
Tags
No related merge requests found
...@@ -124,11 +124,7 @@ elseif (strcmp(tline, '$MeshFormat')) ...@@ -124,11 +124,7 @@ elseif (strcmp(tline, '$MeshFormat'))
disp (sprintf('Syntax error (no $EndMeshFormat) in: %s', filename)); disp (sprintf('Syntax error (no $EndMeshFormat) in: %s', filename));
fileformat = 0; fileformat = 0;
end end
tline = fgetl(fid); % this should be $Nodes tline = fgetl(fid); % this should be $Nodes or $PhysicalNames
if (feof(fid))
disp (sprintf('Syntax error (no $Nodes) in: %s', filename));
fileformat = 0;
end
end end
if (~fileformat) if (~fileformat)
...@@ -136,6 +132,16 @@ if (~fileformat) ...@@ -136,6 +132,16 @@ if (~fileformat)
return return
end 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 %% Read nodes
if strcmp(tline, '$NOD') || strcmp(tline, '$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