assertWithinToleranceTwoQuad Subroutine

public subroutine assertWithinToleranceTwoQuad(expectedValue, actualValue, tol, msg)

Arguments

Type IntentOptional Attributes Name
real(kind=SELECTED_REAL_KIND(QUAD_DIGITS)), intent(in) :: expectedValue
real(kind=SELECTED_REAL_KIND(QUAD_DIGITS)), intent(in) :: actualValue
real(kind=SELECTED_REAL_KIND(QUAD_DIGITS)), intent(in) :: tol
character(len=*), optional :: msg