function ch_to_amino_name_test ( )

%*****************************************************************************80
%
%% ch_to_amino_name_test() tests ch_to_amino_name().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    06 August 2023
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'ch_to_amino_name():\n' );
  fprintf ( 1, '  ch_to_amino_name(): character -> Amino acid name\n' );
  fprintf ( 1, '\n' );
 
  for ch = [ ...
    'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', ...
    'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', ...
    'U', 'V', 'W', 'X', 'Y', 'Z' ]
    name = ch_to_amino_name ( ch );
    fprintf ( 1, '  "%s"  "%s"\n', ch, name );
  end
 
  return
end
