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.
 
 
 
 
 
 

41 lines
995 B

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