test_almost_equal_scalar Subroutine

public subroutine test_almost_equal_scalar()

Arguments

None

Calls

proc~~test_almost_equal_scalar~~CallsGraph proc~test_almost_equal_scalar Test_FieldBLAS::test_almost_equal_scalar asserttrue asserttrue proc~test_almost_equal_scalar->asserttrue proc~are_almost_equal field_utils_setup::are_almost_equal proc~test_almost_equal_scalar->proc~are_almost_equal

Source Code

   subroutine test_almost_equal_scalar()
      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