function s_replace_ch_test ( )

%*****************************************************************************80
%
%% s_replace_ch_test() tests s_replace_ch().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    30 January 2006
%
%  Author:
%
%    John Burkardt
%
  s_old = 'No pennies now.';

  fprintf ( 1, '\n' );
  fprintf ( 1, 's_replace_ch_test():\n' );
  fprintf ( 1,'  s_replace_ch() replaces one character by another;\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '    C1  C2  Original String  Modified String\n' );
  fprintf ( 1, '\n' );

  c1 = 'n';
  c2 = 't';

  s = s_replace_ch ( s_old, c1, c2 );

  fprintf ( 1, '     %c   %c   %s  %s\n', c1, c2, s_old, s );

  return
end
