function id = state_id_from_index ( index )

%*****************************************************************************80
%
%% state_id_from_index() returns the ID of a given US state.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    29 October 2022
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer index: the state index, between 1 and 50.
%
%  Output:
%
%    character*2 id: the state ID.  
%
  id_array = { ...
    'AL', ...
    'AK', ...
    'AZ', ...
    'AR', ...
    'CA', ...
    'CO', ...
    'CT', ...
    'DE', ...
    'FL', ...
    'GA', ...
    'HI', ...
    'ID', ...
    'IL', ...
    'IN', ...
    'IA', ...
    'KS', ...
    'KY', ...
    'LA', ...
    'ME', ...
    'MD', ...
    'MA', ...
    'MI', ...
    'MN', ...
    'MS', ...
    'MO', ...
    'MT', ...
    'NE', ...
    'NV', ...
    'NH', ...
    'NJ', ...
    'NM', ...
    'NY', ...
    'NC', ...
    'ND', ...
    'OH', ...
    'OK', ...
    'OR', ...
    'PA', ...
    'RI', ...
    'SC', ...
    'SD', ...
    'TN', ...
    'TX', ...
    'UT', ...
    'VT', ...
    'VA', ...
    'WA', ...
    'WV', ...
    'WI', ...
    'WY' };

  if ( index < 1 || 50 < index )
    fprintf ( 1, '\n' );
    fprintf ( 1, 'state_id_from_index(): Fatal error!' );
    fprintf ( 1, '  Illegal index value = %d', index );
    error ( 'state_id_from_index(): Illegal index value.' );
  end

  id = char ( id_array( index ) );

  return
end

