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.

CElevatorEnum.f90 827 B

1 year ago
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748
  1. module CElevatorEnum
  2. use COperationScenariosVariables
  3. implicit none
  4. contains
  5. subroutine Evaluate_Elevator()
  6. implicit none
  7. ! if (DriveType == TopDrive_DriveType) then
  8. !#ifdef OST
  9. ! print*, 'Evaluate_Elevator=TopDrive'
  10. !#endif
  11. !
  12. !
  13. !
  14. !
  15. !
  16. !
  17. !
  18. !
  19. !
  20. !
  21. !
  22. !
  23. !
  24. !
  25. !
  26. !
  27. !
  28. ! endif
  29. !
  30. !
  31. !
  32. !
  33. ! if (DriveType == Kelly_DriveType) then
  34. !#ifdef OST
  35. ! print*, 'Evaluate_Elevator=Kelly'
  36. !#endif
  37. ! endif
  38. end subroutine
  39. subroutine Subscribe_Elevator()
  40. implicit none
  41. ! imp me...
  42. end subroutine
  43. end module CElevatorEnum