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

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

onHndlVector=handact(onHndlVector,hndlMatrix,10);

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

set(onHndlVector([5 8]),'visible','off')

%
% Initialize the plotting flags
%

%ndamplttp = 4;
%set(hdamtl(13),'value',4);

%icontlab = 0;
%set(hdamtl(15),'value',0);

%clabfntsz = get(hdamtl(16),'value');

%set(hdamtl(14),'visible','off')
idamugeom = 0;

haxes = onHndlVector(2);
hlegax = onHndlVector(10);

mode_anal = 1;

nmrptdof = 3;  % Default DOF to plot for MRPT to be Z Trans
set(onHndlVector(7),'value',3)


