Changeset 1135

Timestamp:

06/26/09 14:11:12 (16 years ago)

Author:

Eric.Larour

Message:

fixed name problem in expwrite.m + new opening tools for profiles.

Location:

issm/trunk/src/m/utils/Exp

Files:

• expopen.m (added)
• readwrite/expwrite.m (modified) (1 diff)

issm/trunk/src/m/utils/Exp/readwrite/expwrite.m

@@ -18 +18 @@
 for n=1:length(a),
    
-   if ~isempty(a(n).name),
-           fprintf(fid,'%s%s\n','## Name:',a(n).name);
+   if isfield(a,'name'),
+           if ~isempty(a(n).name),
+                   fprintf(fid,'%s%s\n','## Name:',a(n).name);
+           else
+                   fprintf(fid,'%s\n','## Name:');
+           end
    else
            fprintf(fid,'%s\n','## Name:');