printFailTestRealVal Subroutine

  1. cafut.f90
  2. cafut
  3. printFailTestRealVal

public subroutine printFailTestRealVal(img, res, tgt)

Print failure message of a real value comparrison.

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: img

Image where the failure occured.
real(kind=wp), intent(in) :: res

(Incorrect) result value of some procedure.
real(kind=wp), intent(in) :: tgt

(Correct) target result value of some procedure.

Contents

Source Code

printFailTestRealVal

Source Code

subroutine printFailTestRealVal(img, res, tgt)
    !! Print failure message of a real value comparrison.

    integer, intent(in) :: img
        !! Image where the failure occured.
    real(kind=wp), intent(in) :: res
        !! (Incorrect) result value of some procedure.
    real(kind=wp), intent(in) :: tgt
        !! (Correct) target result value of some procedure.

    print SINGLE_VAL_FMT, img, res, tgt
end subroutine printFailTestRealVal