function [ tetra_num2, node_num2 ] = tet_mesh_q2l_size ( tetra_num1, node_num1 )

%*****************************************************************************80
%
%% tet_mesh_q2l_size() sizes a linear tet mesh from a quadratic one.
%
%  Discussion:
%
%    A linear (4 node) tet mesh can be derived from a quadratic
%    (10 node) tet mesh using the same set of nodes, but reassigning
%    the nodes of each quadratic tet among seven linear subtets.
%
%    This routine returns the number of nodes and tetrahedra in the
%    linear mesh.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    13 December 2006
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer TETRA_NUM1, the number of tetrahedrons in the
%    quadratic mesh.
%
%    integer NODE_NUM1, the number of nodes in the quadratic mesh.
%
%  Output:
%
%    integer TETRA_NUM2, the number of tetrahedrons in the
%    linear mesh.
%
%    integer NODE_NUM2, the number of nodes for the linear mesh.
%
  node_num2 = node_num1;
  tetra_num2 = 7 * tetra_num1;

  return
end
