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.
 
 
 
 
 
 

16 lines
349 B

  1. module CHookVariables
  2. !**use CRealEventHandlerCollection
  3. ! use CHookActions
  4. implicit none
  5. Type :: HookType
  6. real :: HookHeight_S = 0.0
  7. real :: HookHeight
  8. !**type(RealEventHandlerCollection) :: OnHookHeightChange
  9. end type HookType
  10. contains
  11. end module CHookVariables