SimulationCore2/CSharp/OperationScenarios/Notifications/NotificationVariables.f90

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