SimulationCore2/CSharp/OperationScenarios/Notifications/CTdsIbopLedNotification.f90

module CTdsIbopLedNotification
    use COperationScenariosVariables
    implicit none
    contains
    
    subroutine Evaluate_IbopLed()
        use CCommon
        implicit none
        
        
        if (Hoisting%DriveType == TopDrive_DriveType) then
#ifdef OST
            print*, 'Evaluate_IbopLed=TopDrive'
#endif




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




            !TOPDRIVE-CODE=62
            if (Get_IbopLed() .and.&
                TopDrivePanel%TopDriveTdsPowerState == TdsPower_OFF .and.&
                TopDrivePanel%TopDriveIbop) then
            
                call Set_IbopLed(.false.)
                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