Simulation Core
No puede seleccionar más de 25 temas Los temas deben comenzar con una letra o número, pueden incluir guiones ('-') y pueden tener hasta 35 caracteres de largo.

CSafetyValveEnum.f90 670 B

hace 1 año
1234567891011121314151617181920212223242526272829303132
  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