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