function p36_p_init ( )

%*****************************************************************************80
%
%% p36_p_init() initializes parameters for problem 36.
%
%  Discussion:
%
%    This routine can be called to choose values for the parameters at random.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    19 January 2021
%
%  Author:
%
%    John Burkardt
%
  m1 = 100.0 * rand ( 1, 1 );
  m2 = 100.0 * rand ( 1, 1 );
  b = 10.0 * rand ( 1, 1 );
  r11 = b * rand ( 1, 1 );
  r12 = b + ( 10.0 - b ) * rand ( 1, 1 );
  r21 = 10.0 * rand ( 1, 1 );
  r22 = 10.0 * rand ( 1, 1 );

  p36_p_set ( b, m1, m2, r11, r12, r21, r22 );

  return
end
