Index: /issm/trunk/src/m/utils/Array/str2int.m
===================================================================
--- /issm/trunk/src/m/utils/Array/str2int.m	(revision 4026)
+++ /issm/trunk/src/m/utils/Array/str2int.m	(revision 4027)
@@ -1,6 +1,12 @@
-function aint=str2int(astr);
+%
+%  function to find and read the first integer in a character string.
+%
+%  function [aint]=str2int(astr)
+%
+function [aint]=str2int(astr);
+
+aint=[];
 
 i=1;
-aint=[];
 while (i <= length(astr))
 	if (astr(i) >= '0' && astr(i) <= '9')