find Function

Source File

private function find(this, my_stuff, offset)

Arguments

Type	Intent	Optional		Name
class(vector_ref),	intent(in)		::	this
class(*),	intent(in)		::	my_stuff
integer,	intent(in),	optional	::	offset

Return Value integer

Calls

Help

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public		::	i
integer,	public		::	offset_

Source Code

    function find(this, my_stuff, offset)
        class(vector_ref), intent(in) :: this
        class(*), intent(in) :: my_stuff
        integer, intent(in), optional :: offset
        integer :: find

        integer :: i, offset_

        offset_ = 1
        if(present(offset)) offset_ = offset

        find = 0
        do i = offset_, this%current_size
            if(object_equal(this%items(i)%stuff, my_stuff)) then
                find = i
                exit
            end if
        end do
    end function find

Project

General

Profile

Earth System Model Environment » self - Fortran STL

find Function

Variables

Source Code

All Procedures

private function find(this, my_stuff, offset)

Arguments

Return Value integer

Calls

Variables

Source Code