function [b, errstr, errid] = isfdtbxinstalled
%ISFDTBXINSTALLED   Returns true if filter design toolbox is installed.

%   Author(s): J. Schickler
%   Copyright 1988-2004 The MathWorks, Inc.
%   $Revision: 1.1.6.2 $  $Date: 2004/07/14 06:47:54 $

b = license('test', 'Filter_Design_Toolbox') && ~isempty(ver('filterdesign'));

if b
    errstr = '';
    errid  = '';
else
    errstr = sprintf('%s\n%s', 'Filter Design Toolbox is not available.', ...
        'Make sure that it is installed and that a license is available.');
    errid  = 'noFDTbx';
end

% [EOF]