function gltpda_times(handles)

% GLTPDA_TIMES multiply an array of analysis objects.
% 
% M Hewitson 15-02-07
% 
% $Id: gltpda_times.m,v 1.2 2007/03/14 16:06:10 hewitson Exp $
% 

%% Get selected AOs
% get AO array
aos = getappdata(handles.main, 'aos');

% Get selected objects
selected = get(handles.aoList, 'Value');
as = aos.objs(selected);

%% Add these together using lincom

if length(as) < 2
  error('### Select at least two analysis objects.');
else  
  b = as(1);
  for j=2:length(as)
    b = b*as(j);
  end
end

%% Add new ao to list 

% Add to object array
aos.objs  = [aos.objs b];
aos.nobjs = aos.nobjs + length(b);

% Set array
setappdata(handles.main, 'aos', aos);

% Update object list
gltpda_setAOlist(handles);




% END