SimulationCore2/Equipments/DrillingConsole_ScrLEDs.i90

# 1 "/mnt/c/Projects/VSIM/SimulationCore2/Equipments/DrillingConsole_ScrLEDs.f90"
subroutine DrillingConsole_ScrLEDs
    
    use CDrillingConsoleVariables
    use SimulationVariables
    use SimulationVariables
    use SimulationVariables !@
    
	IMPLICIT NONE
    
    
    
!===> Torque Limit
    data%Equipments%DrillingConsole%RTTorqueLimitGauge  = sngl(1-data%State%RTable%TorqueLimitGaugeMalf)*(data%Equipments%DrillingConsole%RTTorqueLimitKnob/10.d0)*7000.d0   !tabdile bazeye 0-10 be 0-7000 taghribi anjam shode, baadan eslah shavad ??????
    
    
    
    
    
    if((any(data%Equipments%DrillingConsole%AssignmentSwitch==(/1,2,3,4,8,9,10,11/)))) then
        
        data%Equipments%DrillingConsole%SCR1LED=1
        data%Equipments%DrillingConsole%SCR2LED=1
        data%Equipments%DrillingConsole%SCR3LED=1
        data%Equipments%DrillingConsole%SCR4LED=1
        
    else if (data%Equipments%DrillingConsole%AssignmentSwitch == 5) then
        
        data%Equipments%DrillingConsole%SCR1LED=1
        data%Equipments%DrillingConsole%SCR2LED=1
        data%Equipments%DrillingConsole%SCR3LED=0
        data%Equipments%DrillingConsole%SCR4LED=1
        
    else if (data%Equipments%DrillingConsole%AssignmentSwitch == 7) then
        
        data%Equipments%DrillingConsole%SCR1LED=1
        data%Equipments%DrillingConsole%SCR2LED=1
        data%Equipments%DrillingConsole%SCR3LED=1
        data%Equipments%DrillingConsole%SCR4LED=0
        
    else
        data%Equipments%DrillingConsole%SCR1LED=0
        data%Equipments%DrillingConsole%SCR2LED=0
        data%Equipments%DrillingConsole%SCR3LED=0
        data%Equipments%DrillingConsole%SCR4LED=0
        
    end if
    
    
    
    
end subroutine DrillingConsole_ScrLEDs