%
%  damping_entry.m  ver 1.0   June 28, 2012
%
function[damp]=damping_entry(n)
%
disp(' ');
disp(' Select modal damping input method ');
disp('  1=uniform damping for all modes ');
disp('  2=individual damping ');
idm=input(' ');
%
disp(' ');
%    
if(idm==1)
    udamp=input(' Enter uniform damping ratio ');
    for(i=1:n)
        damp(i)=udamp;
    end      
else
    for(i=1:n)
        out1=sprintf(' Enter damping ratio for mode: %d',i);
        disp(out1);
        damp(i)=input(' ');
    end    
end