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')) ...@@ -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.
Finish editing this message first!
Please register or to comment