printFailTestRealArrVal Subroutine

  1. cafut.f90
  2. cafut
  3. printFailTestRealArrVal

public subroutine printFailTestRealArrVal(img, res, tgt)

Print failure message of a real array comparrison.

Arguments

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

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

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

(Correct) target result array of some procedure.

Contents

Source Code

printFailTestRealArrVal

Source Code

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

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

    print ARR_VAL_IMG, img
    print '(A)', ARR_VAL_RES 
    print *, res
    print '(A)', ARR_VAL_EXP
    print *, tgt
end subroutine printFailTestRealArrVal