Simulation Core
Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.
 
 
 
 
 
 

32 рядки
670 B

  1. module CSafetyValveEnum
  2. use OperationScenariosModule
  3. implicit none
  4. contains
  5. subroutine Evaluate_SafetyValve()
  6. implicit none
  7. ! if (DriveType == TopDrive_DriveType) then
  8. !#ifdef OST
  9. ! print*, 'Evaluate_SafetyValve=TopDrive'
  10. !#endif
  11. ! endif
  12. !
  13. !
  14. !
  15. !
  16. !
  17. !
  18. ! if (DriveType == Kelly_DriveType) then
  19. !#ifdef OST
  20. ! print*, 'Evaluate_SafetyValve=Kelly'
  21. !#endif
  22. ! endif
  23. end subroutine
  24. subroutine Subscribe_SafetyValve()
  25. implicit none
  26. end subroutine
  27. end module CSafetyValveEnum