function tri_surface_print ( node_file_name, triangle_file_name, dim_num, ...
  node_num, order_num, triangle_num, node_xyz, triangle_node )

%*****************************************************************************80
%
%% tri_surface_print() prints graphics information from a pair of TRI_SURFACE files.
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    27 September 2008
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Input, string NODE_FILE_NAME, the name of the node file.
%
%    Input, string TRIANGLE_FILE_NAME, the name of the triangle file.
%
%    Input, integer DIM_NUM, the spatial dimension.
%
%    Input, integer NODE_NUM, the number of points.
%
%    Input, integer ORDER_NUM, the order of the triangles.
%
%    Input, integer TRIANGLE_NUM, the number of triangles.
%
%    Input, real NODE_XYZ(NODE_NUM,dim_num), the node coordinates.
%
%    Input, integer TRIANGLE_NODE(triangle_num,ORDER_NUM,), 
%    the nodes that form the triangles.
%
  r8mat_transpose_print ( node_num, dim_num, node_xyz, '  Node coordinates' );

  i4mat_transpose_print ( triangle_num, order_num, triangle_node, ...
    '  Triangle nodes' );

  return
end
