function theResult = mdfi(p, dof1, dof2)

% mdfi -- IMSL "MDFI" emulator.
%  mdfi(p, dof1, dof2) calls "inv_fisher" to return
%   the equivalent of MDFI(P, DOF1, DOF2), for probability
%   p and degrees-of-freedom dof1 and dof2.
 
% Copyright (C) 1999 Dr. Charles R. Denham, ZYDECO.
%  All Rights Reserved.
%   Disclosure without explicit written consent from the
%    copyright owner does not constitute publication.
 
% Version of 25-Jan-1999 15:35:57.

if nargin < 3, help(mfilename); return, end

if ischar(p), p = eval(p); end
if ischar(dof1), dof1 = eval(dof1); end
if ischar(dof2), dof2 = eval(dof2); end

result = inv_fisher(1-p, dof1, dof2);

if nargout > 0
	theResult = result;
else
	disp(result)
end
