%------------------------------------------------------------------------
% NAME:     qp_Hd
%
%           Sets up Hd and includes this into H. 
%
%           See the README file for options.
%
% FORMAT:   [H,f_y,za_y,Hd] = qp_Hd(Q,H,Hd,f_y,za_y)
%
% OUT:      H
%           f_y
%           za_y
%           Hd
% IN:       Q              The setting structure.
%           H
%           Hd
%           f_y
%           za_y
%------------------------------------------------------------------------

% HISTORY: 2001.03.29  Created by Patrick Eriksson.
%          2001.07.30  Adding red with Kx by Carlos Jimenez
%          2001.09.02  Adding red for limb by Carlos Jimenez

function [H,f_y,za_y,Hd] = qp_Hd(Q,H,Hd,f_y,za_y)



%=== Average of subsequent spectra
if Q.BINVIEW_ON
  %
  [H,f_y,za_y,Hd] = hBinView( H, f_y, za_y, Hd, Q.BINVIEW_DATA );
  %
end



%=== Averaging of neighbouring channels (binning)
if Q.BINNING_ON
  %
  [H,f_y,za_y,Hd] = hBinFile( Hd, f_y, za_y, Q.BINNING_FILE );
  %
elseif Q.KRED_ON
%=== Data reduction by Kx
  %
  [H,f_y,za_y,Hd] = hRedKx(Q,H,f_y,za_y,Hd);
  %
elseif Q.LRED_ON
%=== Data reduction by Limb
  %
  [H,f_y,za_y,Hd] = hRedLimb(Q,H,f_y,za_y,Hd);
  %
end