function [ f, g, h ] = rhs_vortex ( nu, rho, n, x, y, t )

%*****************************************************************************80
%
%% RHS_VORTEX evaluates the Vortex right hand side.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    24 July 2015
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    real NU, the kinematic viscosity.
%
%    real RHO, the density.
%
%    integer N, the number of points at which the solution is to
%    be evaluated.
%
%    real X(N), Y(N), the coordinates of the points.
%
%    real T or T(N), the time coordinate or coordinates.
%
%  Output:
%
%    real F(N), G(N), H(N), the right hand sides in the U, V and P 
%    equations.
%
  [ r, c ] = size ( x );

  f = - 2.0 * nu * pi ^ 2 * ( cos ( pi * x ) .* sin ( pi * y ) );
  g =   2.0 * nu * pi ^ 2 * ( sin ( pi * x ) .* cos ( pi * y ) );
  h = zeros ( r, c );

  return
end

