SimulationCore2/CSharp/OperationScenarios/UnitySignals/CTdsTongEnum.i90

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




!TOPDRIVE-CODE=1
            if (Get_TdsConnectionModes() == TDS_CONNECTION_SPINE .and.&
                Get_TdsBackupClamp() == BACKUP_CLAMP_FW_END .and.&
                data%Equipments%TopDrivePanel%TopDriveTdsPowerState == TdsPower_FWD .and.&
                data%Equipments%TopDrivePanel%TopDriveDrillTorqueState == TdsMu_TORQ) then
            
                call Set_TdsTong(TDS_TONG_MAKEUP_BEGIN)
!TopDriveTorqueWrenchLed = LED_ON
                return
            end if
                
                
                
!TOPDRIVE-CODE=2
            if (Get_TdsConnectionModes() == TDS_CONNECTION_STRING .and.&
                Get_TdsBackupClamp() == BACKUP_CLAMP_FW_END .and.&
                data%Equipments%TopDrivePanel%TopDriveTdsPowerState == TdsPower_REV .and.&
                data%Equipments%TopDrivePanel%TopDriveDrillTorqueState == TdsMu_TORQ) then
            
                call Set_TdsTong(TDS_TONG_BREAKOUT_BEGIN)
!TopDriveTorqueWrenchLed = LED_ON
                return
            end if


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

        endif
        
    end subroutine
    
    subroutine Subscribe_TdsTong()
        use CDrillingConsoleVariables
    use SimulationVariables
    use SimulationVariables
        implicit none
    end subroutine
    
end module CTdsTongEnum