Simulation Core
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.
 
 
 
 
 
 

12 rindas
378 B

  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