find_amap_t Function

public function find_amap_t(this, k) result(r)

Arguments

Type IntentOptional Attributes Name
class(amap_t), intent(in) :: this
type(key_t), intent(in) :: k

Return Value integer


Contents

Source Code

find_amap_t

Source Code

    function find_amap_t(this, k) result(r)
        class(amap_t), intent(in) :: this
        type(key_t), intent(in) :: k
        integer :: r
        do r = 1, this%high_water
            if (this%pairs(r)%k == k) then
                return
            end if
        end do
        r = 0
    end function find_amap_t