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.

CCloseKellyCockLedNotificationVariables.f90 1.7 KiB

1 year ago
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667
  1. module CCloseKellyCockLedNotificationVariables
  2. use CVoidEventHandlerCollection
  3. implicit none
  4. logical :: CloseKellyCockLed = .false.
  5. public
  6. type(VoidEventHandlerCollection) :: OnCloseKellyCockLedChange
  7. private :: CloseKellyCockLed
  8. contains
  9. subroutine Set_CloseKellyCockLed(v)
  10. use CDrillingConsoleVariables, only: CloseKellyCockLedHw => CloseKellyCockLed
  11. use CManifolds, only: CloseKellyCock
  12. implicit none
  13. logical , intent(in) :: v
  14. #ifdef ExcludeExtraChanges
  15. if(CloseKellyCockLed == v) return
  16. #endif
  17. CloseKellyCockLed = v
  18. if(CloseKellyCockLed) then
  19. call CloseKellyCock()
  20. endif
  21. !if(CloseKellyCockLed) then
  22. ! CloseKellyCockLedHw = 1
  23. !else
  24. ! CloseKellyCockLedHw = 0
  25. !endif
  26. call OnCloseKellyCockLedChange%RunAll()
  27. end subroutine
  28. logical function Get_CloseKellyCockLed()
  29. implicit none
  30. Get_CloseKellyCockLed = CloseKellyCockLed
  31. end function
  32. subroutine Set_CloseKellyCockLed_WN(v)
  33. !DEC$ ATTRIBUTES DLLEXPORT :: Set_CloseKellyCockLed_WN
  34. !DEC$ ATTRIBUTES ALIAS: 'Set_CloseKellyCockLed_WN' :: Set_CloseKellyCockLed_WN
  35. implicit none
  36. logical , intent(in) :: v
  37. call Set_CloseKellyCockLed(v)
  38. end subroutine
  39. logical function Get_CloseKellyCockLed_WN()
  40. !DEC$ ATTRIBUTES DLLEXPORT :: Get_CloseKellyCockLed_WN
  41. !DEC$ ATTRIBUTES ALIAS: 'Get_CloseKellyCockLed_WN' :: Get_CloseKellyCockLed_WN
  42. implicit none
  43. Get_CloseKellyCockLed_WN = CloseKellyCockLed
  44. end function
  45. end module CCloseKellyCockLedNotificationVariables