function mcmenu
%
%  Name: mcmenu.m
% 
%  Usage: mcmenu
% 
%  Description:
%     Initializes model correlation menus
%

%  Version SWD970915
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% This matlab source code was originally     %
% developed as part of "DIAMOND" at          %
% Los Alamos National Laboratory. It may     %
% be copied, modified, and distributed in    %
% any form, provided:                        %
%  a) This notice accompanies the files and  %
%     appears near the top of all source     %
%     code files.                            %
%  b) No payment or commercial services are  %
%     received in exchange for the code.     %
%                                            %
% Original copyright is reserved by the      %
% Regents of the University of California,   %
% in addition to Scott W. Doebling, Phillip  %
% J. Cornwell, Erik G. Straser, and Charles  %
% R. Farrar.                                 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%

global HANDLES

%=============================================
% Model based Load/Save menu
%=============================================
HANDLES.hmmenu{9}(1)=uimenu(HANDLES.hfigdmnd,'Label','Load/Save','enable','on');  
uimenu(HANDLES.hmmenu{9}(1),'Label','Load Model Modes','Callback', ...
   ['[filename,pathname,error]=loadfile(1,pathname);', ...
      'if error==0,',...
      '   disp(''Loading Model Modes...''),',...
      '   ldmodelmd(pathname,filename),', ...
      '   disp(''Done Loading Model Modes''),',...
      'end;']);             
uimenu(HANDLES.hmmenu{9}(1),'Label','Load Measured Modes','Callback', ...
   ['[filename,pathname,error]=loadfile(1,pathname);', ...
      'if error==0,',...
      '   disp(''Loading Measured Modes...''),',...
      '   ldmeasmd(pathname,filename),', ...
      '   disp(''Done Loading Measured Modes''),',...
      'end;']);             
uimenu(HANDLES.hmmenu{9}(1),'Label','Load Model Matrices','Callback', ...
   ['[filename,pathname,error]=loadfile(1,pathname);', ...
      'if error==0,',...
      '   disp(''Loading Model Matrices...''),',...
      '   ldmodelmt(pathname,filename),', ...
      '   disp(''Done Loading Model Matrices''),',...
      'end;']); 
uimenu(HANDLES.hmmenu{9}(1),'Label','Load Geometry','Callback', ...
   ['[filename,pathname,error]=loadfile(1,pathname);', ...
      'if error==0,',...
      '   loadgeom(pathname,filename),', ...
      'end;']);


%=============================================
% Methods menu
%=============================================
HANDLES.hmmenu{10}(1)=uimenu(HANDLES.hfigdmnd,'Label','Methods','enable','on');
uimenu(HANDLES.hmmenu{10}(1),'Label','Mode Shape Expansion',...
   'Callback','msewind');  
uimenu(HANDLES.hmmenu{10}(1),'Label','Min. Rank Perturbation (MRPT)',...
   'Callback','mrptwind');
uimenu(HANDLES.hmmenu{10}(1),'Label','Method 2','Callback', ...
   'disp(''This option is not operational yet'')','enable','off');

