function result = jacobi_dnk ( x, k )

%*****************************************************************************80
%
%% jacobi_dnk(): Jacobi's elliptic function dn.
%
%  Discussion:
%
%    jacobi_dnk(X,K) is the Jacobi's function DN of the elements of X and
%    modulus K. X and K must all be real and the same size or any of them
%    can be scalar.
%
%    jacobi_dnk is a wrapper function which mimics the elemental behaviour
%    of function jdn.
%
%  Modified:
%
%    19 November 2020
%
  if nargin < 2
    error('Not enough input arguments.');
  end

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

  return   
end

