Index: /issm/trunk/src/m/utils/Exp/readwrite/expwrite.m
===================================================================
--- /issm/trunk/src/m/utils/Exp/readwrite/expwrite.m	(revision 1329)
+++ /issm/trunk/src/m/utils/Exp/readwrite/expwrite.m	(revision 1330)
@@ -32,9 +32,6 @@
    fprintf(fid,'%i %f\n',[length(a(n).x) a(n).density]);
    fprintf(fid,'%s\n','# X pos Y pos');
-
-   for i=1:length(a(n).x),
-         fprintf(fid,'%f %f\n',[a(n).x(i) a(n).y(i)]);
-   end  
-   fprintf(fid,'\n','');
+	fprintf(fid,'%10.10f %10.10f\n',[a(n).x a(n).y]');
+	fprintf(fid,'\n','');
    
 end
Index: /issm/trunk/src/m/utils/Exp/readwrite/expwriteasvertices.m
===================================================================
--- /issm/trunk/src/m/utils/Exp/readwrite/expwriteasvertices.m	(revision 1329)
+++ /issm/trunk/src/m/utils/Exp/readwrite/expwriteasvertices.m	(revision 1330)
@@ -16,13 +16,10 @@
 
 fid=fopen(filename,'w');
-for n=1:length(a.x),
-   
-	fprintf(fid,'%s\n','## Name:');
-	fprintf(fid,'%s\n','## Icon:0');
-	fprintf(fid,'%s\n','# Points Count  Value');
-	fprintf(fid,'1 1.\n');
-	fprintf(fid,'%s\n','# X pos Y pos');
-	fprintf(fid,'%f %f\n\n',[a.x(n) a.y(n)]);
-
-end
+fprintf(fid,'%s\n','## Name:');
+fprintf(fid,'%s\n','## Icon:0');
+fprintf(fid,'%s\n','# Points Count  Value');
+fprintf(fid,'1 1.\n');
+fprintf(fid,'%s\n','# X pos Y pos');
+fprintf(fid,'%10.10f %10.10f\n',[a.x a.y]');
+fprintf(fid,'\n','');
 fclose(fid);