function xl=gliml(y)
%
%usage:  xl=gliml(y)
%
	xl=0;
endfunction