mahmood19227
/
SimulationCore2
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
69 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Branch: master
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'master'
${ noResults }
SimulationCore2/CSharp/OperationScenarios/Enums/CTdsElevatorModesEnum.i90

320 lines
11 KiB
Raw Permalink Blame History 

  1. # 1 "/home/admin/SimulationCore2/CSharp/OperationScenarios/Enums/CTdsElevatorModesEnum.f90"

  2. module CTdsElevatorModesEnum

  3.     use OperationScenariosModule

  4.     use UnityModule

  5.     implicit none

  6.     contains

  7.     

  8.     subroutine Evaluate_TdsElevatorModes()

  9.         use CCommon, only: SetStandRack

  10.         implicit none

  11.         

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

  13.             if(print_log) print*, 'Evaluate_TdsElevatorModes=TopDrive'

  14. 

  15. !TOPDRIVE-CODE=7

  16.             if (Get_Elevator() == ELEVATOR_LATCH_STRING_END .and.&

  17.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_NOTHING .and.&

  18.                 Get_TdsSwing() == TDS_SWING_OFF_END ) then

  19.             

  20.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STRING)

  21.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  22.                 return

  23.             end if

  24.                 

  25. !TOPDRIVE-CODE=8

  26.             if (Get_HookHeight() <= (TL() + TJH() - data%State%OperationScenario%ECG) .and.&

  27.                 Get_ElevatorPickup() == .false. .and.&

  28.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STRING) then

  29.             

  30.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STRING)

  31.                 return

  32.             end if

  33. 

  34. 

  35.                 

  36. !TOPDRIVE-CODE=9

  37.             if (Get_ElevatorPickup() .and.&

  38.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STRING) then

  39.             

  40.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STRING)

  41.                 return

  42.             end if

  43.                 

  44.                 

  45. !TOPDRIVE-CODE=10

  46.             if (Get_Elevator() == ELEVATOR_UNLATCH_STRING_END .and.&

  47.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STRING) then

  48.             

  49.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)

  50.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  51.                 return

  52.             end if

  53.                 

  54.                 

  55.                 

  56.                 

  57. !TOPDRIVE-CODE=11

  58.             if (Get_Elevator() == ELEVATOR_UNLATCH_STRING_END .and.&

  59.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STRING .and.&

  60.                 Get_TdsConnectionModes() == TDS_CONNECTION_STRING) then

  61.             

  62.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)

  63.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  64.                 return

  65.             end if

  66.                 

  67.                 

  68.                 

  69.                 

  70.                 

  71. !TOPDRIVE-CODE=12

  72.             if (Get_Elevator() == ELEVATOR_LATCH_STAND_END .and.&

  73.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_NOTHING) then

  74.             

  75.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STAND)

  76.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  77.                 call SetStandRack(Get_StandRack() - 1)

  78.                 return

  79.             end if

  80.                 

  81.                 

  82.                 

  83.                 

  84. !TOPDRIVE-CODE=13

  85.             if (Get_Elevator() == ELEVATOR_UNLATCH_STAND_END .and.&

  86.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STAND) then

  87.             

  88.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)

  89.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  90.                 call SetStandRack(Get_StandRack() + 1)

  91.                 return

  92.             end if

  93.                 

  94.                 

  95.                 

  96.                 

  97. !TOPDRIVE-CODE=14

  98.             if (Get_Elevator() == ELEVATOR_LATCH_SINGLE_END .and.&

  99.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_NOTHING .and.&

  100.                 Get_TdsSwing() == TDS_SWING_TILT_END .and.&

  101.                 Get_FillMouseHoleLed()) then

  102.             

  103.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_SINGLE)

  104.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  105.                 call Set_UnlatchLed(.true.)

  106.                 call Set_FillMouseHoleLed(.false.)

  107.                 call Set_MouseHole(MOUSE_HOLE_NEUTRAL)

  108.                 return

  109.             end if

  110.                 

  111.                 

  112.                 

  113.                 

  114.                 

  115. !TOPDRIVE-CODE=15

  116.             if (Get_Elevator() == ELEVATOR_UNLATCH_SINGLE_END .and.&

  117.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_SINGLE .and.&

  118.                 Get_TdsSwing() == TDS_SWING_TILT_END .and.&

  119.                 Get_FillMouseHoleLed() == .false.) then

  120.             

  121.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)

  122.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  123.                 call Set_UnlatchLed(.false.)

  124.                 call Set_FillMouseHoleLed(.true.)

  125.                 call Set_MouseHole(MOUSE_HOLE_NEUTRAL)

  126.                 return

  127.             end if

  128.                 

  129.                 

  130.                 

  131. !TOPDRIVE-CODE=16

  132.             if (Get_HookHeight() <= (TL() + NFC() + data%State%OperationScenario%PL - data%State%OperationScenario%ECG) .and.&

  133.                 Get_Tong() == TONG_BREAKOUT_END .and.&

  134.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STRING .and.&

  135.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  136.             

  137.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_SINGLE)

  138.                 call Set_Tong(TONG_NEUTRAL)

  139.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_SINGLE)

  140.                 return

  141.             end if  

  142.                 

  143.                 

  144.                 

  145.               

  146. !TOPDRIVE-CODE=17

  147.             if (Get_HookHeight() <= (TL() + NFC() + data%State%OperationScenario%PL - data%State%OperationScenario%ECG) .and.&

  148.                 Get_Tong() == TONG_BREAKOUT_END .and.&

  149.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STRING .and.&

  150.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  151.             

  152.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_SINGLE)

  153.                 call Set_Tong(TONG_NEUTRAL)

  154.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_SINGLE)

  155.                 return

  156.             end if  

  157.                 

  158.                 

  159.                 

  160. !TOPDRIVE-CODE=18

  161.             if (Get_ElevatorPickup() .and.&

  162.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_SINGLE) then

  163.             

  164.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_SINGLE)

  165.                 return

  166.             end if   

  167.                 

  168.                 

  169.                 

  170.                 

  171. !TOPDRIVE-CODE=19

  172.             if (Get_HookHeight() <= (TL() + NFC() + data%State%OperationScenario%PL - data%State%OperationScenario%ECG) .and.&

  173.                 Get_ElevatorPickup() == .false. .and.&

  174.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_SINGLE) then

  175.             

  176.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_SINGLE)

  177.                 

  178.                 return

  179.             end if 

  180.                 

  181.                 

  182.                 

  183.                 

  184.                 

  185.                 

  186. !TOPDRIVE-CODE=20

  187.             if (Get_Tong() == TONG_MAKEUP_END .and.&

  188.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_SINGLE) then

  189.             

  190.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STRING)

  191.                 call Set_Tong(TONG_NEUTRAL)

  192.                 call Set_StringUpdate(STRING_UPDATE_ADD_SINGLE)

  193.                 return

  194.             end if   

  195.                 

  196.                 

  197.                 

  198.                 

  199. !TOPDRIVE-CODE=21

  200.             if (Get_Tong() == TONG_MAKEUP_END .and.&

  201.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_SINGLE) then

  202.             

  203.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STRING)

  204.                 call Set_Tong(TONG_NEUTRAL)

  205.                 call Set_StringUpdate(STRING_UPDATE_ADD_SINGLE)

  206.                 return

  207.             end if    

  208.                 

  209.                 

  210.                 

  211. !TOPDRIVE-CODE=22

  212.             if (Get_HookHeight() <= (TL() + NFC() + data%State%OperationScenario%SL - data%State%OperationScenario%ECG) .and.&

  213.                 Get_Tong() == TONG_BREAKOUT_END .and.&

  214.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STRING .and.&

  215.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  216.             

  217.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STAND)

  218.                 call Set_Tong(TONG_NEUTRAL)

  219.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_STAND)

  220.                 return

  221.             end if   

  222.                 

  223.                 

  224.                 

  225. !TOPDRIVE-CODE=23

  226.             if (Get_HookHeight() <= (TL() + NFC() + data%State%OperationScenario%SL - data%State%OperationScenario%ECG) .and.&

  227.                 Get_Tong() == TONG_BREAKOUT_END .and.&

  228.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STRING .and.&

  229.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  230.             

  231.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STAND)

  232.                 call Set_Tong(TONG_NEUTRAL)

  233.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_STAND)

  234.                 return

  235.             end if     

  236.                 

  237.                 

  238.                 

  239. !TOPDRIVE-CODE=24

  240.             if (Get_ElevatorPickup() .and.&

  241.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STAND) then

  242.             

  243.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STAND)

  244.                 return

  245.             end if  

  246.                 

  247.                 

  248.                 

  249.                 

  250.                 

  251. !TOPDRIVE-CODE=25

  252.             if (Get_HookHeight() <= (TL() + NFC() + data%State%OperationScenario%SL - data%State%OperationScenario%ECG) .and.&

  253.                 Get_ElevatorPickup() == .false. .and.&

  254.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STAND) then

  255.             

  256.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STAND)

  257.                 return

  258.             end if 

  259.                 

  260.                 

  261.                 

  262.                 

  263. !TOPDRIVE-CODE=26

  264.             if (Get_Tong() == TONG_MAKEUP_END .and.&

  265.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STAND) then

  266.             

  267.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STRING)

  268.                 call Set_Tong(TONG_NEUTRAL)

  269.                 call Set_StringUpdate(STRING_UPDATE_ADD_STAND)

  270.                 return

  271.             end if 

  272.                 

  273.                 

  274.                 

  275.                 

  276.                 

  277.                 

  278.                 

  279.                 

  280.                 

  281. !TOPDRIVE-CODE=27

  282.             if (Get_Tong() == TONG_MAKEUP_END .and.&

  283.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STAND) then

  284.             

  285.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STRING)

  286.                 call Set_Tong(TONG_NEUTRAL)

  287.                 call Set_StringUpdate(STRING_UPDATE_ADD_STAND)

  288.                 return

  289.             end if 

  290.                 

  291.                 

  292.                 

  293.                 

  294.                 

  295.                 

  296.                 

  297.                 

  298.                 

  299.                 

  300. 

  301.         endif

  302.         

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

  304. !     if(print_log) print*, 'Evaluate_TdsElevatorModes=Kelly'

  305. ! endif

  306.         

  307.         

  308.         

  309.         

  310.     end subroutine

  311.     

  312.     subroutine Subscribe_TdsElevatorModes()

  313.         use CDrillingConsoleVariables

  314.         use SimulationVariables

  315.         use SimulationVariables

  316.         implicit none

  317.     end subroutine

  318.     

  319. end module CTdsElevatorModesEnum