Index: sm/trunk-jpl/src/m/exp/expswapxy.m
===================================================================
--- /issm/trunk-jpl/src/m/exp/expswapxy.m	(revision 23466)
+++ 	(revision )
@@ -1,22 +1,0 @@
-function expswapxy(filename)
-%EXPSWAP - swap x and y fields
-% 
-%   Usage:
-%      expswap(file)
-%
-%   See also EXPMASTER, EXPDOC
-
-contours=expread(filename,1);
-
-newcontours=contours(1);
-
-for i=1:length(contours), 
-	contour=contours(i);
-	newcontour=contour;
-	newcontour.x=contour.y;
-	newcontour.y=contour.x;
-	newcontours(end+1)=newcontour;
-end
-newcontours=newcontours(2:end);
-
-expwrite(newcontours,filename);
Index: /issm/trunk-jpl/src/m/mesh/rifts/meshaddrifts.m
===================================================================
--- /issm/trunk-jpl/src/m/mesh/rifts/meshaddrifts.m	(revision 23466)
+++ /issm/trunk-jpl/src/m/mesh/rifts/meshaddrifts.m	(revision 23467)
@@ -13,5 +13,5 @@
 
 %read rift: 
-domains=expread(riftname,1);
+domains=expread(riftname);
 contours=domains(1:2:end);
 rifts=domains(2:2:end);
Index: /issm/trunk-jpl/src/m/mesh/rifts/rifttipsrefine.m
===================================================================
--- /issm/trunk-jpl/src/m/mesh/rifts/rifttipsrefine.m	(revision 23466)
+++ /issm/trunk-jpl/src/m/mesh/rifts/rifttipsrefine.m	(revision 23467)
@@ -8,5 +8,5 @@
 
 %take rifts, and create refinement circles around tips
-rifts=expread(filename,1);
+rifts=expread(filename);
 
 !echo -n "" > Circles.exp