allclose_operator_real64_3d Function

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

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

Arguments

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

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

The array of expected values

Return Value logical

Did the comparison pass?


Calls

proc~~allclose_operator_real64_3d~~CallsGraph proc~allclose_operator_real64_3d allclose_operator_real64_3d proc~allclose_real64_3d allclose_real64_3d proc~allclose_operator_real64_3d->proc~allclose_real64_3d proc~test_print test_print proc~allclose_real64_3d->proc~test_print

Called by

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

Source Code

    function allclose_operator_real64_3d(got, expect) result(test_pass)

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

      logical :: test_pass  !! Did the comparison pass?

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

    end function allclose_operator_real64_3d