get_node_data Subroutine

    subroutine get_node_data(me,value)
    implicit none

    class(node),intent(in)       :: me
    class(*),pointer,intent(out) :: value

    if (associated(me%value)) then
        value => me%value
    else
        error stop 'error: value pointer is not associated'
    end if

    end subroutine get_node_data