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