%
%  Name: listshls.m
%
%  Usage: 
%
%  This m-file lists the shells in 'Shells' in the geometry editor listbox

%
%  Version SWD970405
%
%  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.)
%

%
%  Generate list of shells
%

shltstr = sprintf('%5s%9s%9s%9s%9s%1s','Label','Node 1','Node 2','Node 3','Node 4','|');
shlstr = shltstr;

for i=1:size(Shells,1)
  shlstr = [shlstr, sprintf('%5.0f%9.0f%9.0f%9.0f%9.0f%1s',Shells(i,:),'|')];
end

%
%  Assign list to listbox
%

set(hlistbox,'string',shlstr)