SimulationCore2/CSharp/OperationScenarios/Notifications/CTdsTorqueWrenchLedNotification.i90

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


!TOPDRIVE-CODE=81
            if((Get_TdsBackupClamp() == BACKUP_CLAMP_OFF_BEGIN .or.&
                Get_TdsBackupClamp() == BACKUP_CLAMP_FW_BEGIN) .and.&
                data%Equipments%TopDrivePanel%TopDriveTdsPowerState /= TdsPower_OFF) then
                call Set_TorqueWrenchLed(LED_BLINK)
                return
            endif
                
!TOPDRIVE-CODE=81
            if(Get_TdsBackupClamp() == BACKUP_CLAMP_FW_END .and.&
                data%Equipments%TopDrivePanel%TopDriveTdsPowerState /= TdsPower_OFF) then
                call Set_TorqueWrenchLed(LED_ON)
                return
            endif
                
             
            call Set_TorqueWrenchLed(LED_OFF)

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


            
        endif
        
     
        
    end subroutine
    
! subroutine Subscribe_TorqueWrenchLed()
!     implicit none
        
! end subroutine
    
end module CTdsTorqueWrenchLedNotification