SimulationCore2/CSharp/OperationScenarios/Notifications/CSlipsNotification.i90

# 1 "/home/admin/SimulationCore2/CSharp/OperationScenarios/Notifications/CSlipsNotification.f90"
module CSlipsNotification
    use OperationScenariosModule
    implicit none
    contains
    
!//TODO: must change code such that get new states of tong and slips from uie
    subroutine Evaluate_SlipsNotification()
        implicit none
        
        if (data%Configuration%Hoisting%DriveType == TopDrive_DriveType) then
! if(print_log) print*, 'Evaluate_SlipsNotification=TopDrive'
!TOPDRIVE-CODE=28
            if (Get_ZeroStringSpeed() .and.&
                GetRotaryRpm() == 0.0d0 .and.&
                Get_Slips() == SLIPS_UNSET_END .and.&
                Get_NearFloorConnection() >= 3.0 .and. Get_NearFloorConnection() <= 6.0) then
            
                call Set_SlipsNotification(.true.)
                return
            end if
                
!TOPDRIVE-CODE=29
            if (Get_ZeroStringSpeed() .and.&
                GetRotaryRpm() == 0.0d0 .and.&
                (Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STRING .or.&
                Get_TdsConnectionModes() == TDS_CONNECTION_STRING) .and.&
                Get_Slips() == SLIPS_SET_END .and.&
                Get_NearFloorConnection() >= 3.0 .and. Get_NearFloorConnection() <= 6.0) then
            
                call Set_SlipsNotification(.true.)
                return
            end if

        endif
! enumerator SLIPS_NEUTRAL
! enumerator SLIPS_SET_BEGIN
! enumerator SLIPS_SET_END
! enumerator SLIPS_UNSET_BEGIN
! enumerator SLIPS_UNSET_END

        if (data%Configuration%Hoisting%DriveType == Kelly_DriveType) then
! if(print_log) print*, 'Evaluate_SlipsNotification=Kelly'

!OPERATION-CODE=53
            if (Get_ZeroStringSpeed() .and.&
                GetRotaryRpm() == 0.0d0 .and.&
!Get_KellyConnection() == KELLY_CONNECTION_STRING
                Get_Slips() == SLIPS_UNSET_END .and.&
                Get_NearFloorConnection() >= 3.0 .and. Get_NearFloorConnection() <= 6.0) then
                call Set_SlipsNotification(.true.)
                return
            end if
            
!OPERATION-CODE=77
            if (Get_ZeroStringSpeed() .and.&
                GetRotaryRpm() == 0.0d0 .and.&
                Get_Slips() == SLIPS_SET_END .and.&
                Get_IsKellyBushingSetInTable() == .false. .and.&
                Get_NearFloorConnection() >= 3.0 .and. Get_NearFloorConnection() <= 6.0 .and.&
                (Get_ElevatorConnection() == ELEVATOR_CONNECTION_STRING .or. Get_KellyConnection() == KELLY_CONNECTION_STRING)) then
                call Set_SlipsNotification(.true.)
                return
            end if
                        
            call Set_SlipsNotification(.false.)

        endif
        
    end subroutine
    
! subroutine Subscribe_SlipsNotification()
!     implicit none
        
!     call OnOperationConditionChange%Add(Evaluate_SlipsNotification)
!     call OnSlackOffChange%Add(Evaluate_SlipsNotification)
!     call OnZeroStringSpeedChange%Add(Evaluate_SlipsNotification)
!     call OnNearFloorConnectionChange%Add(Evaluate_SlipsNotification)
!     call data%State%OperationScenario%OnElevatorConnectionChange%Add(Evaluate_SlipsNotification)
!     call OnKellyConnectionChange%Add(Evaluate_SlipsNotification)
!     call OnSlipsChange%Add(Evaluate_SlipsNotification)
        
! end subroutine
    
end module CSlipsNotification