arctic40km/matlab/myint2str.m

function s=myint2str(x,n);
%MYIN2STR(X,N)   convert integer to string with leading zeros
%                padds integer X with zeros to N locations

if nargin < 2, n=2;  end
if nargin < 1, help myint2str, return, end

s=int2str(x);
n=n-length(s);
for i=1:n
  s=['0' s];
end
1	function s=myint2str(x,n);
2	%MYIN2STR(X,N) convert integer to string with leading zeros
3	% padds integer X with zeros to N locations
4
5	if nargin < 2, n=2; end
6	if nargin < 1, help myint2str, return, end
7
8	s=int2str(x);
9	n=n-length(s);
10	for i=1:n
11	s=['0' s];
12	end