function Fspec(array, Fs)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% PURPOSE: Plot the frequency spectrum of a time signal
% AUTHOR:  Rob McEwen
% DATE:    00/6/1
% INPUTS:  array - time domain signal
%          Fs    - sampling frequency
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%

 position = [4 32 815 658];

 [hh,ww]=psd(array,length(array),Fs,hamming(length(array)));
 
 if exist( 'h_freq' ) ~= 1
   h_freq = figure;
   winpos( position(1,:) );
 else 
   figure( h_freq ); 
 end
    
 set( h_freq, 'name', 'Frequency Spectrum', 'DeleteFcn', 'clear h_freq');

 semilogx(ww,20*log10(abs(hh)));
 grid on
 zoom on
 ylabel('Magnitude')
 xlabel('Frequency, Hz')
 
 return