SimulationCore2/CSharp/OperationScenarios/UnitySignals/CTongEnum.i90

# 1 "/home/admin/SimulationCore2/CSharp/OperationScenarios/UnitySignals/CTongEnum.f90"
module CTongEnum
    use OperationScenariosModule
    implicit none
    contains
    
    subroutine Evaluate_Tong()
        implicit none
        
!        if (DriveType == TopDrive_DriveType) then
!            if(print_log) print*, 'Evaluate_Tong=TopDrive'
!        endif
!        if (DriveType == Kelly_DriveType) then
!            if(print_log) print*, 'Evaluate_Tong=Kelly'
!        endif
        
    end subroutine
    
! subroutine Subscribe_Tong()
!     use CDrillingConsoleVariables
!@    use ConfigurationVariables
!     implicit none
        
!     call OnBreakoutLeverPress%Add(ButtonPress_Breakout_TongNotification)
!     call OnMakeupLeverPress%Add(ButtonPress_Makeup_TongNotification)
!     call OnTongNeutralPress%Add(ButtonPress_Neutral_TongNotification)
        
! end subroutine
    
    
    
    subroutine ButtonPress_Breakout_TongNotification()
        implicit none
        if (data%Configuration%Hoisting%DriveType == TopDrive_DriveType) then
            if(print_log) print*, 'ButtonPress_Breakout_TongNotification=TopDrive'
!TOPDRIVE-CODE=70
            if (Get_TongNotification()) then
                call Set_Tong(TONG_BREAKOUT_BEGIN)
                return
            end if
        endif
        if (data%Configuration%Hoisting%DriveType == Kelly_DriveType) then
            if(print_log) print*, 'ButtonPress_Breakout_TongNotification=Kelly'
!OPERATION-CODE=74
            if (Get_TongNotification()) then
                call Set_Tong(TONG_BREAKOUT_BEGIN)
            endif
        endif
    end subroutine
    
    
    
    
    
    
    
    subroutine ButtonPress_Makeup_TongNotification()
        use NotificationModule
        implicit none
        
        if (data%Configuration%Hoisting%DriveType == TopDrive_DriveType) then
            if(print_log) print*, 'ButtonPress_Makeup_TongNotification=TopDrive'
!TOPDRIVE-CODE=69
            if (Get_TongNotification()) then
                call Set_Tong(TONG_MAKEUP_BEGIN)
                return
            end if
        endif
        
        if (data%Configuration%Hoisting%DriveType == Kelly_DriveType) then
            if(print_log) print*, 'ButtonPress_Makeup_TongNotification=Kelly'
!OPERATION-CODE=73
            if (Get_TongNotification()) then
                call Set_Tong(TONG_MAKEUP_BEGIN)
            endif
        endif        
        
    end subroutine
    
    subroutine ButtonPress_Neutral_TongNotification()
        implicit none
        if (data%Configuration%Hoisting%DriveType == TopDrive_DriveType) then
            if(print_log) print*, 'ButtonPress_Neutral_TongNotification=TopDrive'
        endif

        if (data%Configuration%Hoisting%DriveType == Kelly_DriveType) then
            if(print_log) print*, 'ButtonPress_Neutral_TongNotification=Kelly'
            call Set_Tong(TONG_NEUTRAL)
        endif
    end subroutine
    
end module CTongEnum