function [ u, v, w, p ] = uvwp_burgers ( nu, n, x, y, z, t )

%*****************************************************************************80
%
%% uvwp_burgers(): solution of the Burgers exact Navier Stokes solution.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    29 July 2015
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    Martin Bazant, Henry Moffatt,
%    Exact solutions of the Navier-Stokes equations having steady vortex structures,
%    Journal of Fluid Mechanics,
%    Volume 541, pages 55-64, 2005.
%
%    Johannes Burgers,
%    A mathematical model illustrating the theory of turbulence,
%    Advances in Applied Mechanics,
%    Volume 1, pages 171-199, 1948.
%
%  Input:
%
%    real NU, the viscosity.
%
%    integer N, the number of evaluations points.
%
%    real X(N), Y(N), Z(N), the coordinates of the points.
%
%    real T(N), the time coordinates.
%
%  Output:
%
%    real U(N), V(N), W(N), P(N), the solution.
%
  u = + 2.0 * x;
  v = - 2.0 * y;
  w = erf ( y / sqrt ( nu ) );
  p = - 2.0 * ( x .^ 2 + y .^ 2 );

  return
end

