isclose_operator_real64 Function

public function isclose_operator_real64(got, expect) result(test_pass)

Custom operator for isclose comparison of two real64 values Uses default relative tolerance of 1e-5 and does not print results

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: got

The value to be tested
real(kind=real64), intent(in) :: expect

The expected value

Return Value logical

Did the comparison pass?


Calls

proc~~isclose_operator_real64~~CallsGraph proc~isclose_operator_real64 isclose_operator_real64 proc~isclose_real64 isclose_real64 proc~isclose_operator_real64->proc~isclose_real64 proc~test_print test_print proc~isclose_real64->proc~test_print

Called by

proc~~isclose_operator_real64~~CalledByGraph proc~isclose_operator_real64 isclose_operator_real64 interface~operator (.isclose.) operator (.isclose.) interface~operator (.isclose.)->proc~isclose_operator_real64

Source Code

    function isclose_operator_real64(got, expect) result(test_pass)

      real(kind=real64), intent(in) :: got      !! The value to be tested
      real(kind=real64), intent(in) :: expect   !! The expected value

      logical :: test_pass  !! Did the comparison pass?

      test_pass = isclose_real64(got, expect, "unused", 1.0e-05_real64, .false.)

    end function isclose_operator_real64