Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

CPathChangeEvents.f90 378 B

1 year ago
123456789101112
  1. module CPathChangeEvents
  2. ! use CIntegerArrayEventHandlerCollection
  3. ! use CVoidEventHandlerCollection
  4. implicit none
  5. public
  6. ! type(VoidEventHandlerCollection) :: BeforeTraverse
  7. ! type(VoidEventHandlerCollection) :: AfterTraverse
  8. ! type(IntegerArrayEventHandlerCollection) :: OnPathOpen
  9. contains
  10. end module CPathChangeEvents