function mrptwind
%
%  Name:   mrptwind
%
%  Usage:  mrptwind
%
%  Starts up the "Minimum Rank Perturbation Technique" window
% 

%  Version SWD970406
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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 MODES MODELCOR GEOM

%
% Activate the appropriate handles
%

hideallbtns
showall(HANDLES.hmrptb)

MODELCOR.haxes = HANDLES.hmrptb(2);
MODELCOR.hlegax = HANDLES.hmrptb(10);

%
% Turn off the display tools button and the locate DOF button
%

set(HANDLES.hmrptb([5 8]),'visible','off')

%
% Initialize the plotting flags
%

MODELCOR.mode_anal = 1;

%
%  Initialize the mode selection window
%

mdslinit

MODELCOR.nmrptdof = 4;  % Default DOF to plot for MRPT to be X Rotation
set(HANDLES.hmrptb(7),'value',MODELCOR.nmrptdof)

% Initialize the geometry display attributes

if ~isfield(GEOM,'inodelab'),
   GEOM.inodelab = 0;
end
if ~isfield(GEOM,'nodelnco'),
   GEOM.nodelnco = 'g';
end
if ~isfield(GEOM,'nodelabsz'),
   GEOM.nodelabsz = 12;
end

if ~isfield(GEOM,'ibarlab'),
   GEOM.ibarlab = 0;
end
if ~isfield(GEOM,'barlnco'),
   GEOM.barlnco = 'y';
end
if ~isfield(GEOM,'barlnst'),
   GEOM.barlnst = '-';
end
if ~isfield(GEOM,'barlabsz'),
   GEOM.barlabsz = 12;
end

return