newTestRealArrVal_name Function

public function newTestRealArrVal_name(ts_name, eps) result(new_ts)

Construct new TestRealArrVal given a name.

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: ts_name

Name of the new TestRealArrVal object.

real(kind=wp), optional :: eps

Allowed margin of error

Return Value type(TestRealArrVal)

Return new TestRealArrVal object.


Contents


Source Code

function newTestRealArrVal_name(ts_name, eps) result(new_ts)
    !! Construct new TestRealArrVal given a name.

    character(len=*), intent(in) :: ts_name
        !! Name of the new TestRealArrVal object.
    real(kind=wp), optional :: eps
        !! Allowed margin of error
    type(TestRealArrVal) :: new_ts
        !! Return new TestRealArrVal object.

    new_ts%test_name = ts_name
    if (present(eps)) then
        new_ts%eps = eps
    else
        new_ts%eps = default_eps
    end if
    new_ts%next => null()
    new_ts%compare => realArrEq
    !TODO: create a bunch of subclasses with different comparisson
    ! operators.
end function newTestRealArrVal_name