Index: /issm/trunk/src/m/utils/Exp/expcoarsen.m
===================================================================
--- /issm/trunk/src/m/utils/Exp/expcoarsen.m	(revision 1084)
+++ /issm/trunk/src/m/utils/Exp/expcoarsen.m	(revision 1085)
@@ -18,4 +18,5 @@
 A=expread(oldfile,1);
 numprofiles=size(A,2);
+A(1).x(end)
 
 %Go through the profiles
@@ -26,10 +27,6 @@
 	j=1;
 
-	while 1,
-
-		%stop if we have reached end of profile (always keep the last point)
-		if j>numpoints-1,
-			break
-		end
+	%stop if we have reached end of profile (always keep the last point)
+	while j<numpoints-1,,
 
 		%See whether we keep this point or not
@@ -43,5 +40,7 @@
 		end
 	end
+
 end
+A(1).x(end)
 
 expwrite(A,newfile);