function month_abb = i4_to_month_abb ( m )

%*****************************************************************************80
%
%% i4_to_month_abb() returns the abbreviated name of a given month.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    06 August 2023
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer m: the month index, between 1 and 12.
%
%  Output:
%
%    string month_abb: the abbreviated month's name (3 letters).  
%
  name_abb = [ ...
    'Jan'; 'Feb'; 'Mar'; 'Apr'; ...
    'May'; 'Jun'; 'Jul'; 'Aug'; ...
    'Sep'; 'Oct'; 'Nov'; 'Dec' ];

  if ( m < 1 || 12 < m )
    month_abb = '?';
  else
    month_abb = name_abb(m,:);
  end

  return
end
