Index: /issm/trunk/src/m/utils/Exp/expdisp.m
===================================================================
--- /issm/trunk/src/m/utils/Exp/expdisp.m	(revision 2718)
+++ /issm/trunk/src/m/utils/Exp/expdisp.m	(revision 2719)
@@ -6,33 +6,39 @@
 %   Usage:
 %      expdisp(domainoutline,varargin)
+%      expdisp(domainoutline,figurenumber,linestyle,linewidth,unitmultiplier)
+%
+%   Example:
+%      expdisp('Domain.exp',1,'--r',2,10^3);
 %
 %   See also EXPMASTER, EXPDOC
 
-if nargin==1,
-	figurenumber=1;
-	linestyle='r-';
-	unitmultiplier=1;
+%check nargin
+if ~nargin | nargin>4
+	help expdisp
+	error('expdisp error message: bad usage');
 end
 
-if nargin==2,
+%parse input
+if nargin<=1,
+	figurenumber=1;
+else
 	figurenumber=varargin{1};
+end
+if nargin<=2
 	linestyle='r-';
+else
+	linestyle=varargin{2};
+end
+if nargin<=3
+	linewidth=1;
+else
+	linewidth=varargin{3};
+end
+if nargin<=4
 	unitmultiplier=1;
+else
+	unitmultiplier=varargin{4}; if isnan(unitmultiplier), unitmultiplier=1; end
 end
 
-if nargin==3,
-	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);