function fem3d_pack_test01 ( )

%*****************************************************************************80
%
%% fem3d_pack_test01() tests basis_mn_tet4_test().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 August 2009
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'FEM3D_PACK_TEST01\n' );
  fprintf ( 1, '  BASIS_MN_TET4_TEST tests BASIS_MN_TET4\n' );
  fprintf ( 1, '  which computes the basis functions for \n' );
  fprintf ( 1, '  the TET4 linear tetrahedral element.\n' );

  basis_mn_tet4_test ( );

  return
end
