Index: /issm/trunk/src/m/utils/Exp/expflip.m
===================================================================
--- /issm/trunk/src/m/utils/Exp/expflip.m	(revision 5453)
+++ /issm/trunk/src/m/utils/Exp/expflip.m	(revision 5453)
@@ -0,0 +1,19 @@
+function expflip(domainname)
+%EXPFLIP: flip orientation of all contours and domains in domainname exp file.
+%
+%Usage: expflip('MassFlux1.exp');a
+%
+%
+
+
+
+
+
+a=expread(domainname,1);
+
+for i=1:length(a),
+	a(i).x=flipud(a(i).x);
+	a(i).y=flipud(a(i).y);
+end
+
+expwrite(a,domainname);