allclose_operator_real32_1d Function

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

Custom operator for allclose comparison of two real32-valued 1D arrays Uses default relative tolerance of 1e-5 and does not print results

Arguments

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

The array of values to be tested
real(kind=real32), intent(in), dimension(:) :: expect

The array of expected values

Return Value logical

Did the comparison pass?


Calls

proc~~allclose_operator_real32_1d~~CallsGraph proc~allclose_operator_real32_1d allclose_operator_real32_1d proc~allclose_real32_1d allclose_real32_1d proc~allclose_operator_real32_1d->proc~allclose_real32_1d proc~test_print test_print proc~allclose_real32_1d->proc~test_print

Called by

proc~~allclose_operator_real32_1d~~CalledByGraph proc~allclose_operator_real32_1d allclose_operator_real32_1d interface~operator (.allclose.) operator (.allclose.) interface~operator (.allclose.)->proc~allclose_operator_real32_1d

Source Code

    function allclose_operator_real32_1d(got, expect) result(test_pass)

      real(kind=real32), intent(in), dimension(:) :: got     !! The array of values to be tested
      real(kind=real32), intent(in), dimension(:) :: expect  !! The array of expected values

      logical :: test_pass  !! Did the comparison pass?

      test_pass = allclose_real32_1d(got, expect, "unused", 1.0e-05_real32, .false.)

    end function allclose_operator_real32_1d