SimulationCore2/CSharp/OperationScenarios/UnitySignals/CTdsBackupClamp.i90

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


!TOPDRIVE-CODE=79
            if(Get_TdsBackupClamp() == BACKUP_CLAMP_OFF_END .and.&
                data%Equipments%TopDrivePanel%TopDriveTdsPowerState /= TdsPower_OFF .and.&
                data%Equipments%TopDrivePanel%TopDriveTorqueWrench) then
                
                call Set_TdsBackupClamp(BACKUP_CLAMP_FW_BEGIN)
                
            endif
                
!TOPDRIVE-CODE=80
            if(Get_TdsBackupClamp() /= BACKUP_CLAMP_OFF_END .and.&
                Get_TdsBackupClamp() /= BACKUP_CLAMP_OFF_BEGIN .and.&
                data%Equipments%TopDrivePanel%TopDriveTdsPowerState /= TdsPower_OFF .and.&
                data%Equipments%TopDrivePanel%TopDriveTorqueWrench == .false.) then
                
                call Set_TdsBackupClamp(BACKUP_CLAMP_OFF_BEGIN)
                
            endif    


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

        endif
        
    end subroutine
    
    subroutine Subscribe_TdsBackupClamp()
        use CDrillingConsoleVariables
    use SimulationVariables
    use SimulationVariables
        implicit none
    end subroutine
    
end module CTdsBackupClamp