function theResult = mdsti(p, dof)

% mdsti -- IMSL "MDSTI" emulator.
%  mdsti(p, dof) calls "inv_student_t" to return
%   the equivalent of MDSTI(P, DOF), for probability
%   p and degrees-of-freedom dof.
 
% 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 < 2, help(mfilename); return, end

if ischar(p), p = eval(p); end
if ischar(dof), dof = eval(dof); end

result = inv_student_t(1 - p, dof);

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