function invmodn_test ( )

%*****************************************************************************80
%
%% INVMODN_TEST tests INVMODN.
%
%  Modified:
%
%    22 August 2011
%
%  Author:
%
%    John Burkardt
%
  for n = 2 : 20
    fprintf ( 1, '  %2d:  ', n );
    for b = - 3 : n + 2
      y = invmodn ( b, n );
      if ( ~isempty ( y ) )
        fprintf ( 1, '  %3d', y );
      else
        fprintf ( 1, '     ' )
      end
    end 
    fprintf ( 1, '\n' );
  end

  return
end
