function month_name = month_to_month_name_roman ( m )

%*****************************************************************************80
%
%% month_to_month_name_roman() returns the name of a Roman month.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    16 March 2013
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer M, the month index.
%
%  Output:
%
%    string MONTH_NAME, the month name.
%
  name = [ ...
    'Januarius '; 'Februarius'; 'Martius   '; 'Aprilis   '; ...
    'Maius     '; 'Junius    '; 'Julius    '; 'Augustus  '; ...
    'September '; 'October   '; 'November  '; 'December  ' ];

  if ( m < 1 || 12 < m )

    month_name = '??????????';

  else

    month_name = name(m,:);

  end

  return
end
