has_prev Function

private elemental function has_prev(this)

Arguments

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

Return Value logical

Description

Returns whether or not this node points to a previous one, forming a chain in the backwards direction.


Source Code

  elemental logical function has_prev(this)
    !* Author: Chris MacMackin
    !  Date: February 2016
    !  
    ! Returns whether or not this node points to a previous one, forming
    ! a chain in the backwards direction.
    !
    class(bidir_node), intent(in) :: this
    has_prev = associated(this%prev)
  end function has_prev