%
%  Name: savegeom
% 
%  Usage: savegeom
% 
%   Description:
%     Saves geometry variables to specified file

%
%  Version SWD970709
%
%  Author(s): Scott W. Doebling, doebling@lanl.gov
%
%  Institution: Los Alamos National Laboratory,
%		ESA-EA
%
%  Copyright (c) 1997, The Regents of the University
%     	of California. (See top level of code for
%	full copyright statement.)

disp('Saving Geometry...')

savestr = '';

if exist('Nodes') ~= 1,
   warndlg('WARNING: No Nodes defined in this geometry file')
else
   savestr = [savestr,' Nodes '];
end

if exist('Bars')==1,
   savestr = [savestr,' Bars '];
end

if exist('Shells')==1,
   savestr = [savestr,' Shells '];
end

if exist('SEMbeams')==1,
   savestr = [savestr,' SEMbeams '];
end

if exist('SEMquads')==1,
   savestr = [savestr,' SEMquads '];
end

if exist('respDOF')==1,
   savestr = [savestr,' respDOF '];
end

if exist('refDOF')==1,
   savestr = [savestr,' refDOF '];
end

eval(['save ',pathname,filename,savestr]);

disp('Done Saving Geometry')


