function s_substitute_test ( )

%*****************************************************************************80
%
%% s_substitute_test() tests s_substitute().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    28 December 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 's_substitute_test()::\n' );
  fprintf ( 1, '  s_substitute() substitutes characters in a string.\n' );

  s_old = 'Galapagos';
  sub_old = 'gao';
  sub_new = 'Jen';
  s_new = s_substitute ( s_old, sub_old, sub_new );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Old chars  = "%s"\n', sub_old );
  fprintf ( 1, '  New chars  = "%s"\n', sub_new );
  fprintf ( 1, '  Old string = "%s"\n', s_old );
  fprintf ( 1, '  New string = "%s"\n', s_new );

  fprintf ( 1, '\n' );
  fprintf ( 1, 's_substitute_test():\n' );
  fprintf ( 1, '  Normal end of execution.\n' );

  return
end

