function ncquit(infile)
% NCQUIT    - Update and close a netcdf file
% 
% Use as: ncquit(infile)
%
% Inputs: infile = A netcdf object

% Brian Schlining
% 17 Mar 2000

names = char(ncnames(infile));

if strcmp(permission(infile), 'nowrite')
   s = [names ' closed.'];
else
   creationDate = infile.creationDate(:);
   lastModified = infile.lastModified(:);
   
   [Year Month Day] = datevec(now);
   d = sprintf('%02i/%02i/%04i', Month, Day, Year);
   
   if isempty(creationDate)
      infile.creationDate = ncchar(d);
   end
   
   if isempty(lastModified)
      infile.lastModified = ncchar(d);
   else
      infile.lastModified(:) = d;
   end
   
   s = [names ' updated and closed.'];
end

close(infile);
fprintf(1, '  \n%s\n\n', s);