% Purpose
%    gets the variable shape.
%
% Synopsis
%    varshape = mexeps('varshape',varcode)
%
% Description
%    It returns the shape of the variable.  The variable
%    is refered to by its variable code, varcode. The 
%    output argument is a 1x4 array which contains length 
%    of x, y, z, and t axis of the variable.
%
% Examples
%    Open a pointer file, get the variable code list and get
%    the variable shape of each variable in the data file.
%
%      currentfile = mexeps('openr','eps_to_plot.ptr');
%      while(currentfile ~= ' ')
%	 var_list = mexeps('varlist')
%        for I = 1:length(var_list)
%          varcode = varlist(I);
%          varshape = mexeps('varshape',varcode)
%        end
%	 currentfile = mexeps('setnextr');
%      end
%      mexeps('close')
%
% See Also
%    varlist, getvar, setvar, putvar
%