function value = r8_sign_opposite_strict ( r1, r2 )

%*****************************************************************************80
%
%% r8_sign_opposite_strict() is true if two R8's are strictly of opposite sign.
%
%  Discussion:
%
%    This test could be coded numerically as
%
%      if ( r1 * r2 < 0.0 ) then ...
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    23 June 2010
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    real R1, R2, the values to check.
%
%  Output:
%
%    logical VALUE, is true if ( R1 < 0 and 0 < R2 )
%    or ( R2 < 0 and 0 < R1 ).
%
  value = ( r1 < 0.0 & 0.0 < r2 ) | ( r2 < 0.0 & 0.0 < r1 );

  return
end
