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

%*****************************************************************************80
%
%% UVWP_BURGERS evaluates the solution of the Burgers exact Navier Stokes solution.
%
%  Location:
%
%    http://people.sc.fsu.edu/~jburkardt/m_src/navier_stokes_3d_exact/uvwp_burgers.m
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL 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.
%
%  Parameters:
%
%    Input, real NU, the viscosity.
%
%    Input, integer N, the number of points at which the solution is to
%    be evaluated.
%
%    Input, real X(N), Y(N), Z(N), the coordinates of the points.
%
%    Input, 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

