allclose_operator_real32_2d Function

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

Custom operator for allclose comparison of two real32-valued 2D 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_2d~~CallsGraph proc~allclose_operator_real32_2d allclose_operator_real32_2d proc~allclose_real32_2d allclose_real32_2d proc~allclose_operator_real32_2d->proc~allclose_real32_2d proc~test_print test_print proc~allclose_real32_2d->proc~test_print

Called by

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

Source Code

    function allclose_operator_real32_2d(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_2d(got, expect, "unused", 1.0e-05_real32, .false.)

    end function allclose_operator_real32_2d