function y=abstv(n)

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

% Declare global variables
global tv

% Compute absorption coefficients vector
y=n.^2*tv;
