function [ a, seed ] = i4_uniform ( b, c, seed )

%% I4_UNIFORM returns a scaled pseudorandom I4.
%
%  Modified:
%
%    21 September 2006
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Input, integer B, C, the minimum and maximum acceptable values.
%
%    Input, integer SEED, a seed for the random number generator.
%
%    Output, integer A, the randomly chosen integer.
%
%    Output, integer SEED, the updated seed.
%
  if ( seed == 0 )
    fprintf ( 1, '\n' );
    fprintf ( 1, 'I4_UNIFORM - Fatal error!\n' );
    fprintf ( 1, '  Input SEED = 0!\n' );
    error ( 'I4_UNIFORM - Fatal error!' );
  end

  [ r, seed ] = r4_uniform_01 ( seed );

  b = round ( b );
  c = round ( c );

  a = b + floor ( r * ( c + 1 - b ) );