%
%  Name: updtnode
% 
%  Usage: updtnode
% 
%   Description:
%	Updates the Node list from the 
%	interactive geometry function
%	'editgeom'
% 

%  Version SWD960321
%
%  Copyright (c) 1996 by Scott W. Doebling
%	Los Alamos National Laboratory
%	ESA-EA, doebling@lanl.gov
%
disp('in update nodes')
inode = str2num(get(hinode,'string'));
ixnode = str2num(get(hixnode,'string'));
iynode = str2num(get(hiynode,'string'));
iznode = str2num(get(hiznode,'string'));

if inodedel == 1,
   inod = find(Nodes(:,1) == inode);
   if ~isempty(inod),
      Nodes(inod,:) = [];
      disp(['Node #',num2str(inode),' deleted']);
   else
      disp(['Node #',num2str(inode),' not in list -- cannot delete']);
   end
   set(hnodedel,'Value',0);
   inodedel=0;
else
   Nodes = addnodes(Nodes,inode,ixnode,iynode,iznode);
end

return
