function h = bc_test01 ( x_num, x, t, h )

%*****************************************************************************80
%
%% bc_test01() evaluates the boundary conditions for problem 1.
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    25 January 2012
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer X_NUM, the number of nodes.
%
%    real X(X_NUM,1), the node coordinates.
%
%    real T, the current time.
%
%    real H(X_NUM,1), the current heat values.
%
%  Output:
%
%    real H(X_NUM,1), the current heat values, after boundary
%    conditions have been imposed.
%
  h(1,1)     = 90.0;
  h(x_num,1) = 70.0;

  return
end
