Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(bidir_node), | intent(in) | :: | this |
Returns whether or not this node points to a previous one, forming a chain in the backwards direction.
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