module NotificationVariables ! use CVoidEventHandlerCollection implicit none type::NotificationType logical :: CloseKellyCockLed = .false. logical :: CloseSafetyValveLed = .false. integer :: operation_CloseSafetyValveLed = 0 logical :: FillMouseHoleLed = .false. logical :: IrIBopLed = .false. logical :: IrSafetyValveLed = .false. integer :: operation_IrSafetyValveLed = 0 logical :: LatchLed = .false. logical :: OpenKellyCockLed = .false. logical :: OpenSafetyValveLed = .false. integer :: operation_OpenSafetyValveLed = 0 logical :: SlipsNotification = .false. logical :: SwingLed = .false. logical :: IbopLed = .false. logical :: PowerLed = .false. integer :: TorqueWrenchLed = 0 logical :: TongNotification = .false. logical :: UnlatchLed = .false. end type NotificationType contains end module NotificationVariables