Index: /issm/branches/trunk-larour-NatGeoScience2016/src/m/exp/isexp.m
===================================================================
--- /issm/branches/trunk-larour-NatGeoScience2016/src/m/exp/isexp.m	(revision 21366)
+++ /issm/branches/trunk-larour-NatGeoScience2016/src/m/exp/isexp.m	(revision 21366)
@@ -0,0 +1,14 @@
+function bool=isexp(filename)
+%ISEXP - is a file an expfile? 
+%
+%   Usage:
+%      isexp(filename);
+%
+%   See also EXPREAD, EXPDOC
+
+[path,name,ext]=fileparts(filename); 
+if strcmpi(ext,'.exp'),
+	bool=1;
+else 
+	bool=0;
+end