test_almost_equal_scalar Subroutine

public subroutine test_almost_equal_scalar(this)

Arguments

Type IntentOptional Attributes Name
class(MpiTestMethod), intent(inout) :: this

Calls

proc~~test_almost_equal_scalar~~CallsGraph proc~test_almost_equal_scalar test_almost_equal_scalar asserttrue asserttrue proc~test_almost_equal_scalar->asserttrue proc~are_almost_equal are_almost_equal proc~test_almost_equal_scalar->proc~are_almost_equal

Source Code

   subroutine test_almost_equal_scalar(this)
      class(MpiTestMethod), intent(inout) :: this
      character(len=*), parameter :: MSG = 'Difference exceeds threshold'
      real(kind=ESMF_KIND_R8), parameter :: X = 1.0 / 3.0
      real(kind=ESMF_KIND_R4) :: y

      y = X
      @assertTrue(are_almost_equal(X, y), trim(MSG))

   end subroutine test_almost_equal_scalar