SimulationCore2/CSharp/OperationScenarios/Notifications/CTdsPowerLedNotification.i90

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


!TOPDRIVE-CODE=63
            if (data%Equipments%TopDrivePanel%TopDriveTdsPowerState == TdsPower_OFF) then
                call Set_PowerLed(.true.)
                return
            end if

        endif
        
        
        
        
        
        
        
        
        if (data%Configuration%Hoisting%DriveType == Kelly_DriveType) then
# 35


        endif
        
        
        
        
        
    end subroutine
    
! subroutine Subscribe_PowerLed()
!     implicit none
! end subroutine
    
end module CTdsPowerLedNotification