function y=absbl(n)

% This function computes the absorption coefficients appropriate
% to model thermoviscous absorption and boundary layer effects.
%
% Translated into MATLAB by Ronald Kumon, 21 Oct 1995

% Declare global variables
global tv d omega b

% Compute absorption coefficients vector
abl   =(1+j)*b*sqrt(n); 		% Boundary layer abs. & disp.
y     = abl; 				% Total absorption and dispersion