function value = i4vec_choose ( m, n, k )

%*****************************************************************************80
%
%% I4VEC_CHOOSE computes the generalized binomial coefficient C(M,N,K).
%
%  Discussion:
%
%    C(M,N,K) = product ( 1 <= I <= M ) C(N,K)
%
%    where:
%
%      C(N,K) = N! / ( K! * (N-K)! )
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    21 January 2016
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Input, integer M, the spatial dimension.
%
%    Input, integer N(M), K(M), the parameters for each dimension.
%
%    Output, integer I4VEC_CHOOSE, the generalized binomial coefficient.
%
  value = 1;
  for i = 1 : m
    value = value * i4_choose ( n(i), k(i) );
  end

  return
end
