SimulationCore2/CSharp/OperationScenarios/Notifications/CIrSafetyValveLedNotification.i90

# 1 "/home/admin/SimulationCore2/CSharp/OperationScenarios/Notifications/CIrSafetyValveLedNotification.f90"
module CIrSafetyValveLedNotification
    use OperationScenariosModule
!use UnitySignalsModuleVariables
    implicit none
    contains
    
    subroutine Evaluate_IrSafetyValveLed()
        implicit none
        
        
        
        
        
        if (data%Configuration%Hoisting%DriveType == TopDrive_DriveType) then
# 17




            




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


!OPERATION-CODE=56
            if (Get_OperationCondition() == OPERATION_DRILL) then
                call Set_IrSafetyValveLed(.true.)
                return
            end if
        
        
        
        
!call Set_IrSafetyValveLed(.false.)
        
        endif
        
        
        
        
        
        
        
        
        
        
        
        
    end subroutine
        
! subroutine Subscribe_IrSafetyValveLed()
!     use CDrillingConsoleVariables
!@    use ConfigurationVariables
!@    use ConfigurationVariables
!     implicit none
!     call OnIRSafetyValvePress%Add(ButtonPress_IrSafetyValve)
!     call OnOperationConditionChangeInt%Add(Set_Operation_IrSafetyValveLed)
! end subroutine
    
    subroutine Set_Operation_IrSafetyValveLed(v)
        implicit none
        integer , intent(in) :: v
# 79

        data%State%notifications%operation_IrSafetyValveLed = v
# 83

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




!TOPDRIVE-CODE=53
            if (Get_IrSafetyValvePermission() .and.&
                Get_IrSafetyValveLed()) then
            
                call Set_IrSafetyValveLed(.false.)
                return
            end if








!TOPDRIVE-CODE=54
            if (Get_IrSafetyValvePermission() .and.&
                Get_IrSafetyValveLed() == .false.) then
            
                call Set_IrSafetyValveLed(.true.)
                return
            end if


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


!OPERATION-CODE=54
            if (Get_OperationCondition() == OPERATION_TRIP .and.&
                Get_IrSafetyValvePermission() .and.&
                Get_IrSafetyValveLed()) then
                call Set_IrSafetyValveLed(.false.)
                return
            end if
            
            
!OPERATION-CODE=55
            if (Get_OperationCondition() == OPERATION_TRIP .and.&
                Get_IrSafetyValvePermission() .and.&
                Get_IrSafetyValveLed() == .false. ) then
                call Set_IrSafetyValveLed(.true.)
                return
            end if

        endif
        
        
        
        
        
        
         
        
    end subroutine
    
end module CIrSafetyValveLedNotification