newTestRealVal_name Function

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

Construct new TestRealVal given a name.

Arguments

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

Name of the new TestRealVal object.

real(kind=wp), optional :: eps

Allowed margin of error

Return Value type(TestRealVal)

Return new TestRealVal object.


Contents

Source Code


Source Code

function newTestRealVal_name(ts_name, eps) result(new_ts)
    !! Construct new TestRealVal given a name.

    character(len=*), intent(in) :: ts_name
        !! Name of the new TestRealVal object.
    real(kind=wp), optional :: eps
        !! Allowed margin of error
    type(TestRealVal) :: new_ts
        !! Return new TestRealVal 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 => realEq
    !TODO: create a bunch of subclasses with different comparisson
    ! operators.
    new_ts%res = 0
    new_ts%tgt = 0
end function newTestRealVal_name