function [ y, j, f ] = jed_to_yjf_roman ( jed )

%*****************************************************************************80
%
%% jed_to_yjf_roman() converts a JED to a Roman YJF date.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    26 June 2012
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    real JED, the Julian Ephemeris Date.
%
%  Output:
%
%    integer Y, J, real F, the YJF date.
%
  [ y1, m1, d1, f1 ] = jed_to_ymdf_roman ( jed );

  [ y, j, f ] = ymdf_to_yjf_roman ( y1, m1, d1, f1 );

  return
end
