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.
 
 
 
 
 
 

15 lines
282 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. end type HookType
  9. contains
  10. end module CHookVariables