SimulationCore2/CSharp/OperationScenarios/Notifications/CTdsIbopLedNotification.i90

# 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/OperationScenarios/Notifications/CTdsIbopLedNotification.f90"
module CTdsIbopLedNotification
    use OperationScenariosModule
    implicit none
    contains
    
    subroutine Evaluate_IbopLed()
        use CCommon
        implicit none
        
        
        if (data%Configuration%Hoisting%DriveType == TopDrive_DriveType) then
# 14





!TOPDRIVE-CODE=61
            if (Get_IbopLed() == .false. .and.&
                data%Equipments%TopDrivePanel%TopDriveTdsPowerState == TdsPower_OFF .and.&
                data%Equipments%TopDrivePanel%TopDriveIbop == .false.) then
            
                call Set_IbopLed(.true.)
                data%Equipments%TopDrivePanel%TopDriveLinkTiltLed = LED_OFF
                return
            end if




!TOPDRIVE-CODE=62
            if (Get_IbopLed() .and.&
                data%Equipments%TopDrivePanel%TopDriveTdsPowerState == TdsPower_OFF .and.&
                data%Equipments%TopDrivePanel%TopDriveIbop) then
            
                call Set_IbopLed(.false.)
                data%Equipments%TopDrivePanel%TopDriveLinkTiltLed = LED_ON
                return
            end if





        endif
        
        
        
        
        
        
        
        
!        if (DriveType == Kelly_DriveType) then
!#ifdef OST
!            print*, 'Evaluate_IbopLed=Kelly'
!#endif
!
!        endif
        
        
        
        
        
    end subroutine
    
! subroutine Subscribe_IbopLed()
!     implicit none
! end subroutine
    
end module CTdsIbopLedNotification