#!/usr/bin/env python def 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 GNU LGPL license. # # Modified: # # 25 July 2014 # # Author: # # John Burkardt # # Parameters: # # Input, real R1, R2, the values to check. # # Output, logical R8_SIGN_OPPOSITE_STRICT, is TRUE if ( R1 < 0 and 0 < R2 ) # or ( R2 < 0 and 0 < R1 ). # value = ( r1 < 0.0 and 0.0 < r2 ) or ( r2 < 0.0 and 0.0 < r1 ); return value