%
%  PSD_amplitude_metric.m  ver 1.0  October 17, 2012
%
function[rlab,ylab,iam]=PSD_amplitude_metric()
%
while(1)
    disp(' ')
    disp(' Select amplitude metric ');
    disp('   1=acceleration ');
    disp('   2=velocity ');
    disp('   3=displacement ');
    disp('   4=force ');
    disp('   5=pressure ');
    disp('   6=volts ');
    iam = input('');
    if(iam==1 || iam==2 || iam==3 || iam==4 || iam==5 || iam==6)
        break;
    end
end
%
if(iam==1)
    ylab='Accel (G^2/Hz)';
    rlab='GRMS';
    disp(' Select unit ');
    disp('   1=G ');
    disp('   2=m/sec^2 ');  
    iunit=input(' ');
    if(iunit==2)
      ylab='Accel ((m/sec^2)^2/Hz)';
      rlab='(m/sec^2) RMS';
    end
end
if(iam==2)
    ylab='Velocity ((in/sec)^2/Hz)';
    rlab='(in/sec) RMS';   
    disp(' ')
    disp(' Select unit ');
    disp('   1=in/sec ');
    disp('   2=m/sec '); 
    iunit=input(' ');    
    if(iunit==2)
      ylab='Velocity ((m/sec)^2/Hz)';
      rlab='(m/sec) RMS';     
    end    
end
if(iam==3)
    ylab='Disp (in^2/Hz)';
    rlab='inch RMS';
    disp(' ')
    disp(' Select unit ');
    disp('   1=in ');
    disp('   2=m '); 
    iunit=input(' ');
    if(iunit==2)
      ylab='Disp (m^2/Hz)';
      rlab='m RMS';
    end      
end
if(iam==4)
    ylab='Force (lbf^2/Hz)';
    rlab='lbf RMS';
    disp(' ')
    disp(' Select unit ');
    disp('   1=lbf ');
    disp('   2=N '); 
    iunit=input(' ');
    if(iunit==2)
      ylab='Force (N^2/Hz)';
      rlab='N RMS';
    end         
end
if(iam==5)
    ylab='Pressure (psi^2/Hz)';  
    rlab='psi RMS';
    disp(' ')
    disp(' Select unit ');
    disp('   1=psi ');
    disp('   2=Pa '); 
    iunit=input(' ');
    if(iunit==2)
      ylab='Pressure (Pa^2/Hz)';
      rlab='Pa RMS';
    end         
end
if(iam==6)
    ylab='(Volts^2/Hz)'; 
    rlab='VRMS';
end