%
%  Name: listSEMquads.m
%
%  Usage: 
%

%
%  Version SWD970707
%
%  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
%

sqtstr = sprintf('%15s','Label    Nodes|');
sqstr = sqtstr;

for i=1:length(SEMquads),
   sqstr = [sqstr,sprintf('%-6.0f',SEMquads{i}(1)),sprintf('%5.0f',SEMquads{i}(2:end)),'|'];
end

%
%  Assign list to listbox
%

set(hlistbox,'string',sqstr)