%
%  enter_modal_damping.m  ver 1.0  September 20, 2012
%
function[dampv]=enter_modal_damping(num_modes)
%
disp(' ');
disp(' Select damping input method ');
disp(' 1=constant for all modes   2=vector ');
dm=input(' ');
if(dm==1)
   disp(' ');
   disp(' Enter the modal damping ratio ');
   mdr=input(' ');
   dampv=mdr*ones(num_modes,1);
else
   disp(' ');
   FS = input('  Enter the modal damping ratio vector:  ','s');
   dampv=evalin('caller',FS);
end