SimulationCore2/CSharp/OperationScenarios/Notifications/COpenSafetyValveLedNotification.i90

# 1 "/home/admin/SimulationCore2/CSharp/OperationScenarios/Notifications/COpenSafetyValveLedNotification.f90"
module COpenSafetyValveLedNotification
    use OperationScenariosModule
    implicit none
    contains
    
    subroutine Evaluate_OpenSafetyValveLed()
        implicit none
        
        
        
!        if (DriveType == TopDrive_DriveType) then
!#ifdef OST
!            if(print_log) print*, 'Evaluate_OpenSafetyValveLed=TopDrive'
!#endif
!        endif
!
!
!
!
!
!
!
!
!        if (DriveType == Kelly_DriveType) then
!#ifdef OST
!            if(print_log) print*, 'Evaluate_OpenSafetyValveLed=Kelly'
!#endif
!        endif
        
        
        
    end subroutine
    
! subroutine Subscribe_OpenSafetyValveLed()
!     use CDrillingConsoleVariables
! use ConfigurationVariables
! use ConfigurationVariables
!     implicit none
!     call OnOpenSafetyValvePress%Add(ButtonPress_OpenSafetyValve)
!     call OnOperationConditionChangeInt%Add(Set_Operation_OpenSafetyValveLed)
! end subroutine
    
    
    subroutine Set_Operation_OpenSafetyValveLed(v)
        implicit none
        integer , intent(in) :: v
# 49

        data%State%notifications%operation_OpenSafetyValveLed = v
# 53

    end subroutine
    
    
    subroutine ButtonPress_OpenSafetyValve()
        implicit none
        
        
        if (data%Configuration%Hoisting%DriveType == TopDrive_DriveType) then
# 64


!TOPDRIVE-CODE=56
            if (Get_SafetyValveHeight() >= 3.0 .and. Get_SafetyValveHeight() <= 12.0 .and.&
                Get_OpenSafetyValveLed() == .false. .and.&
                Get_CloseSafetyValveLed()) then
                
                call Set_CloseSafetyValveLed(.false.)
                call Set_OpenSafetyValveLed(.true.)
                return
            end if

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

            

!OPERATION-CODE=58
            if (Get_SafetyValveHeight() >= 3.0 .and. Get_SafetyValveHeight() <= 12.0 .and.&
                Get_OpenSafetyValveLed() == .false. .and.&
                Get_CloseSafetyValveLed()) then
                call Set_OpenSafetyValveLed(.true.)
                call Set_CloseSafetyValveLed(.false.)
                return
            end if


        endif
        
        
        
        
    end subroutine
    
end module COpenSafetyValveLedNotification