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.

CMouseHoleEnum.f90 861 B

1 year ago
123456789101112131415161718192021222324252627282930313233343536373839
  1. module CMouseHoleEnum
  2. use COperationScenariosVariables
  3. implicit none
  4. contains
  5. subroutine Evaluate_MouseHole()
  6. implicit none
  7. ! if (DriveType == TopDrive_DriveType) then
  8. !#ifdef OST
  9. ! print*, 'Evaluate_MouseHole=TopDrive'
  10. !#endif
  11. ! endif
  12. !
  13. !
  14. !
  15. !
  16. !
  17. !
  18. ! if (DriveType == Kelly_DriveType) then
  19. !#ifdef OST
  20. ! print*, 'Evaluate_MouseHole=Kelly'
  21. !#endif
  22. ! endif
  23. end subroutine
  24. subroutine Subscribe_MouseHole()
  25. !use CDrillingConsoleVariables
  26. implicit none
  27. !call OnFillMouseHolePress%Add(ButtonPress_MouseHole)
  28. end subroutine
  29. !subroutine ButtonPress_MouseHole()
  30. ! implicit none
  31. ! print*, 'ButtonPress_MouseHole'
  32. !end subroutine
  33. end module CMouseHoleEnum