mahmood19227
/
SimulationCore2
1
0
Форкнуть 0
Код Задачи 0 Pull Request'ы 0 Релизы 0 Вики Активность
Simulation Core
Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.
62 коммитов
2 Ветки
134 MiB
 
 
 
 
 
 
Дерево: 95ad7885e9
Ветки Теги
${ item.name }
Создать ветку ${ searchTerm }
из '95ad7885e9'
${ noResults }
SimulationCore2/CSharp/OperationScenarios/Notifications/CSwingLedNotification.i90

123 строки
4.5 KiB
Исходник Вина История 

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/OperationScenarios/Notifications/CSwingLedNotification.f90"

  2. module CSwingLedNotification

  3.     use OperationScenariosModule

  4.     use UnityModule

  5.     implicit none

  6.     contains

  7.     

  8.     subroutine Evaluate_SwingLed()

  9.         implicit none

  10.         

  11.         

  12.         

  13.         

  14.         

  15.         if (data%Configuration%Hoisting%DriveType == TopDrive_DriveType) then

  16. # 17

  17. 

  18. 

  19. 

  20. 

  21.         endif

  22.         

  23.         

  24.         

  25.         

  26.         

  27.         

  28.         

  29.         

  30.         

  31.         if (data%Configuration%Hoisting%DriveType == Kelly_DriveType) then

  32. # 34

  33. 

  34. 

  35. 

  36. !OPERATION-CODE=22

  37.             if (Get_OperationCondition() == OPERATION_TRIP .and.&

  38.                 Get_HookHeight() >= (data%State%OperationScenario%HL + Get_NearFloorConnection()) .and. Get_HookHeight() <= (data%State%OperationScenario%HL + Get_NearFloorConnection() + data%State%OperationScenario%LG) .and.&

  39.                 Get_ElevatorConnection() == ELEVATOR_CONNECTION_NOTHING .and.&

  40.                 Get_JointConnectionPossible() == .false. .and.&

  41.                 (Get_Swing() /= SWING_WELL_BEGIN .and.& 

  42.                  Get_Swing() /= SWING_MOUSE_HOLE_BEGIN .and.&

  43.                  Get_Swing() /= SWING_RAT_HOLE_BEGIN) .and.&

  44.                 Get_Slips() == SLIPS_SET_END) then

  45.             

  46.                 call Set_SwingLed(.true.)

  47.                 return

  48.             end if

  49.             

  50.             

  51. !OPERATION-CODE=23

  52.             if (Get_OperationCondition() == OPERATION_TRIP .and.&

  53.                 Get_HookHeight() >= (data%State%OperationScenario%HL + Get_NearFloorConnection() + data%State%OperationScenario%PL) .and. Get_HookHeight() <= (data%State%OperationScenario%HL + Get_NearFloorConnection() + data%State%OperationScenario%LG + data%State%OperationScenario%PL) .and.&

  54.                 Get_ElevatorConnection() == ELEVATOR_CONNECTION_SINGLE .and.&

  55.                 Get_JointConnectionPossible() == .false. .and.&

  56.                 (Get_Swing() /= SWING_WELL_BEGIN .and.& 

  57.                  Get_Swing() /= SWING_MOUSE_HOLE_BEGIN .and.&

  58.                  Get_Swing() /= SWING_RAT_HOLE_BEGIN) .and.&

  59.                 Get_Slips() == SLIPS_SET_END) then

  60.             

  61.                 call Set_SwingLed(.true.)

  62.                 return

  63.             end if

  64.             

  65.             

  66. !OPERATION-CODE=24

  67.             if (Get_OperationCondition() == OPERATION_DRILL .and.&

  68.                 Get_HookHeight() >= (data%State%OperationScenario%HKL + Get_NearFloorConnection()) .and. Get_HookHeight() <= (data%State%OperationScenario%HKL + Get_NearFloorConnection() + data%State%OperationScenario%LG) .and.&

  69.                 Get_JointConnectionPossible() == .false. .and.&

  70.                 Get_KellyConnection() == KELLY_CONNECTION_NOTHING .and.&

  71.                 (Get_Swing() /= SWING_WELL_BEGIN .and.& 

  72.                  Get_Swing() /= SWING_MOUSE_HOLE_BEGIN .and.&

  73.                  Get_Swing() /= SWING_RAT_HOLE_BEGIN) .and.&

  74.                 Get_Slips() == SLIPS_SET_END) then

  75.             

  76.                 call Set_SwingLed(.true.)

  77.                 return

  78.             end if

  79.             

  80. !OPERATION-CODE=25

  81.             if (Get_OperationCondition() == OPERATION_DRILL .and.&

  82.                 Get_HookHeight() >= (data%State%OperationScenario%HKL + Get_NearFloorConnection() + data%State%OperationScenario%PL) .and. Get_HookHeight() <= (data%State%OperationScenario%HKL + Get_NearFloorConnection() + data%State%OperationScenario%LG + data%State%OperationScenario%PL) .and.&

  83.                 Get_KellyConnection() == KELLY_CONNECTION_SINGLE .and.&

  84.                 Get_JointConnectionPossible() == .false. .and.&

  85.                 (Get_Swing() /= SWING_WELL_BEGIN .and.& 

  86.                  Get_Swing() /= SWING_MOUSE_HOLE_BEGIN .and.&

  87.                  Get_Swing() /= SWING_RAT_HOLE_BEGIN) .and.&

  88.                 Get_Slips() == SLIPS_SET_END) then

  89.             

  90.                 call Set_SwingLed(.true.)

  91.                 return

  92.             end if

  93.                

  94.             

  95.             call Set_SwingLed(.false.)

  96.             

  97.             

  98.         endif

  99.         

  100.         

  101.         

  102.         

  103.         

  104.         

  105.         

  106.         

  107.     end subroutine

  108.     

  109. ! subroutine Subscribe_SwingLed()

  110. !     implicit none

  111.         

  112. !     call OnOperationConditionChange%Add(Evaluate_SwingLed)

  113. !     call OnHookHeightChange%Add(Evaluate_SwingLed)

  114. !     call OnElevatorConnectionChange%Add(Evaluate_SwingLed)

  115. !     call OnKellyConnectionChange%Add(Evaluate_SwingLed)

  116. !     call OnSwingChange%Add(Evaluate_SwingLed)

  117. !     call OnSlipsChange%Add(Evaluate_SwingLed)

  118. !     call OnFillMouseHoleLedChange%Add(Evaluate_SwingLed)

  119.         

  120. ! end subroutine

  121.     

  122. end module CSwingLedNotification