Project

General

Profile

private function at(this, idx)

Arguments

Type IntentOptional AttributesName
class(vector_ref), intent(in) :: this
integer, intent(in) :: idx

Return Value class(*), pointer


Source Code

    function at(this, idx)
        class(vector_ref), intent(in) :: this
        integer, intent(in) :: idx
        class(*), pointer :: at
        at => null()
        if(1 <= idx .and. idx <= this%current_size) then
            at => this%items(idx)%stuff
        end if
    end function at


© 2016
self was developed by
Documentation generated by FORD