function theVar = get_varn(self);

%  theVar = get_varn(nc);
%
%  get_varn(nc) returns the variables (not coordinates)
%  of 'nc'.  
%

if nargin < 1, help(mfilename), return, end

vars = var(self);

for i = length(vars):-1:1;
   if iscoord(vars{i}), vars(i) = []; end
end

if nargout > 0
   theVar = cell(size(vars));
   theVar = vars;
else
   for i = 1:length(vars)
      disp(name(vars{i}))
   end
end
