%
%  Name:   loadgeom
%
%  Usage:  loadgeom
%
%  Loads the geometry variables into their proper variablenames
%

%  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('Loading Geometry...')

clear Nodes Bars Shells SEMbeams SEMquads

eval(['load ',[pathname,filename]]);

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

if exist('Bars') ~= 1 & exist('Shells') ~= 1,
   warndlg('WARNING: No Bars or Shells defined in this geometry file')
end

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

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

if exist('SEMbeams') ~= 1,
   SEMbeams = {};
end

if exist('SEMquads') ~= 1,
   SEMquads = {};
end

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

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


disp('Done loading geometry')