function xh=glimh(y)
%usage:  xh=glimh(y)
xh=y;