SimulationCore2/Equipments/DrillingConsole_ScrLEDs.f90

subroutine DrillingConsole_ScrLEDs
    
    USE CDrillingConsoleVariables
    USE RTable_VARIABLES
    
	IMPLICIT NONE
    
    
    
    !===> Torque Limit
    DrillingConsole%RTTorqueLimitGauge  = sngl(1-RTable%TorqueLimitGaugeMalf)*(DrillingConsole%RTTorqueLimitKnob/10.d0)*7000.d0   !tabdile bazeye 0-10 be 0-7000 taghribi anjam shode, baadan eslah shavad ??????
    
    
    
    
    
    if((any(DrillingConsole%AssignmentSwitch==(/1,2,3,4,8,9,10,11/)))) then
        
        DrillingConsole%SCR1LED=1
        DrillingConsole%SCR2LED=1
        DrillingConsole%SCR3LED=1
        DrillingConsole%SCR4LED=1
        
    else if (DrillingConsole%AssignmentSwitch == 5) then
        
        DrillingConsole%SCR1LED=1
        DrillingConsole%SCR2LED=1
        DrillingConsole%SCR3LED=0
        DrillingConsole%SCR4LED=1
        
    else if (DrillingConsole%AssignmentSwitch == 7) then
        
        DrillingConsole%SCR1LED=1
        DrillingConsole%SCR2LED=1
        DrillingConsole%SCR3LED=1
        DrillingConsole%SCR4LED=0
        
    else
        DrillingConsole%SCR1LED=0
        DrillingConsole%SCR2LED=0
        DrillingConsole%SCR3LED=0
        DrillingConsole%SCR4LED=0
        
    end if
    
    
    
    
end subroutine DrillingConsole_ScrLEDs