function sphere_imp_grid_icos_size_test ( )

%*****************************************************************************80
%
%% sphere_imp_grid_icos_size_test() tests sphere_imp_grid_icos_size().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    22 May 2005
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'sphere_imp_grid_icos_size_test():\n' );
  fprintf ( 1, '  sphere_imp_grid_icos_size() determines the size\n' );
  fprintf ( 1, '  (number of nodes, number of triangles) in a grid\n' );
  fprintf ( 1, '  on a sphere, made by subdividing an initial\n' );
  fprintf ( 1, '  projected icosahedron.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  FACTOR determines the number of subdivisions of each\n' );
  fprintf ( 1, '  edge of the icosahedral faces.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '    FACTOR     Nodes     Edges Triangles\n' );
  fprintf ( 1, '  --------  --------  --------  --------\n' );
  fprintf ( 1, '\n' );

  for factor = 1 : 10
    [ node_num, edge_num, triangle_num ] = sphere_imp_grid_icos_size ( factor );
    fprintf ( 1, '  %8d  %8d  %8d  %8d\n', ...
      factor, node_num, edge_num, triangle_num );
  end

  return
end
