SimulationCore2/Equipments/DrillingConsole_ScrLEDs.f90

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