has_next Function

  1. linked_node.f90
  2. linked_node_mod
  3. has_next

private elemental function has_next(this)

Arguments

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

Return Value logical

Description

Returns whether or not this node points at another one, forming a chain.


Source Code

  elemental logical function has_next(this)
    !* Author: Chris MacMackin
    !  Date: February 2016
    !  
    ! Returns whether or not this node points at another one, forming
    ! a chain.
    !
    class(linked_node), intent(in) :: this
    has_next = associated(this%next)
  end function has_next