Project

General

Profile

vector_iterator Derived Type

type, public :: vector_iterator

type~~vector_iterator~~InheritsGraph type~vector_iterator vector_iterator type~vector_ref vector_ref type~vector_ref->type~vector_iterator my_vector type~vector_item vector_item type~vector_item->type~vector_ref items object object object->type~vector_ref


Components

TypeVisibility AttributesNameInitial
class(vector_ref), public, pointer:: my_vector=> null()
integer, private :: current =0

Type-Bound Procedures

procedure, public :: set_vector

  • private subroutine set_vector(this, my_vector)

    Arguments

    Type IntentOptional AttributesName
    class(vector_iterator), intent(inout) :: this
    type(vector_ref), intent(in), target:: my_vector

procedure, public :: more

  • private function more(this)

    Arguments

    Type IntentOptional AttributesName
    class(vector_iterator), intent(in) :: this

    Return Value logical

procedure, public :: next

  • private function next(this, item)

    Arguments

    Type IntentOptional AttributesName
    class(vector_iterator), intent(inout) :: this
    class(*), intent(out), pointer:: item

    Return Value logical

procedure, public :: pos

  • private function pos(this)

    Arguments

    Type IntentOptional AttributesName
    class(vector_iterator), intent(in) :: this

    Return Value integer

Source Code

    type, public :: vector_iterator
        private
        class(vector_ref), pointer, public :: my_vector => null()
        integer :: current = 0
    contains
        procedure :: set_vector
        procedure :: more
        procedure :: next
        procedure :: pos
    end type vector_iterator

© 2016
self was developed by
Documentation generated by FORD