module CPathChangeEvents ! use CIntegerArrayEventHandlerCollection ! use CVoidEventHandlerCollection implicit none public ! type(VoidEventHandlerCollection) :: BeforeTraverse ! type(VoidEventHandlerCollection) :: AfterTraverse ! type(IntegerArrayEventHandlerCollection) :: OnPathOpen contains end module CPathChangeEvents