function result = jacobi_snk_inverse ( x, k )

%*****************************************************************************80
%
%% jacobi_snk_inverse(): inverse of the Jacobi elliptic function sn(x,k).
%
%  Discussion:
%
%    jacobi_snk_inverse(X,K) is the inverse of Jacobi function SN for 
%    elements of argument X and modulus K. X and K must all be real and the 
%    same size or any of them can be scalar. 
%
%  Modified:
%
%    21 November 2020
%
  if nargin < 2
    error('Not enough input arguments.');
  end

  result = ufun2 ( @ijsn, x, k );

  return  
end

