Index: /issm/trunk/src/m/utils/Exp/expdisp.m
===================================================================
--- /issm/trunk/src/m/utils/Exp/expdisp.m	(revision 1262)
+++ /issm/trunk/src/m/utils/Exp/expdisp.m	(revision 1263)
@@ -12,4 +12,5 @@
 	figurenumber=1;
 	linestyle='r-';
+	unitmultiplier=1;
 end
 
@@ -17,4 +18,5 @@
 	figurenumber=varargin{1};
 	linestyle='r-';
+	unitmultiplier=1;
 end
 
@@ -22,10 +24,19 @@
 	figurenumber=varargin{1};
 	linestyle=varargin{2};
+	unitmultiplier=1;
 end
 
+if nargin==4,
+	figurenumber=varargin{1};
+	linestyle=varargin{2};
+	unitmultiplier=varargin{3};
+	if isnan(unitmultiplier),
+		unitmultiplier=1;
+	end
+end
 domain=expread(domainoutline,1);
 
 figure(figurenumber),hold on
 for i=1:length(domain),
-	plot(domain(i).x,domain(i).y,linestyle);
+	plot(domain(i).x*unitmultiplier,domain(i).y*unitmultiplier,linestyle);
 end