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.
2 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 89a9ff5920
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '89a9ff5920'
${ noResults }
SimulationCore2/CSharp/OperationScenarios/UnitySignals/CTdsSwingEnum.f90

140 lines
4.2 KiB
Raw Blame History 

  1. module CTdsSwingEnum

  2.     use COperationScenariosVariables

  3.     implicit none

  4.     contains

  5.     

  6.     subroutine Evaluate_TdsSwing()

  7.         implicit none

  8.         

  9.         if (DriveType == TopDrive_DriveType) then

  10. #ifdef OST

  11.             print*, 'Evaluate_TdsSwing=TopDrive'

  12. #endif

  13. 

  14. 

  15.             !TOPDRIVE-CODE=37

  16.             if (Get_SwingDrillPermission() .and.&

  17.                 Get_TdsSwing() == TDS_SWING_OFF_END .and.&

  18.                 Get_FillMouseHoleLed() == .false. .and.&

  19.                 TopDriveLinkTiltState == TdsLinkTilt_DRILL) then

  20.             

  21.                 call Set_TdsSwing(TDS_SWING_DRILL_BEGIN)

  22.                 TopDriveLinkTiltLed = LED_ON

  23.                 return

  24.             end if

  25.             

  26.                 

  27.                 

  28.             !TOPDRIVE-CODE=38

  29.             if (Get_SwingTiltPermission() .and.&

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

  31.                 TopDriveLinkTiltState == TdsLinkTilt_TILT) then

  32.             

  33.                 call Set_TdsSwing(TDS_SWING_TILT_BEGIN)

  34.                 TopDriveLinkTiltLed = LED_ON

  35.                 return

  36.             end if    

  37.                 

  38.                 

  39.                 

  40.             !TOPDRIVE-CODE=39

  41.             if (Get_SwingOffPermission() .and.&

  42.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING .and.&

  43.                 Get_TdsSwing() == TDS_SWING_OFF_END .and.&

  44.                 TopDriveLinkTiltState == TdsLinkTilt_OFF) then

  45.             

  46.                 call Set_TdsSwing(TDS_SWING_OFF_BEGIN)

  47.                 TopDriveLinkTiltLed = LED_ON

  48.                 return

  49.             end if     

  50.                 

  51.                 

  52.                 

  53.                

  54.                 

  55.             !TOPDRIVE-CODE=40

  56.             if (Get_SwingTiltPermission() .and.&

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

  58.                 Get_TdsSwing() == TDS_SWING_OFF_END .and.&

  59.                 TopDriveLinkTiltState == TdsLinkTilt_TILT) then

  60.             

  61.                 call Set_TdsSwing(TDS_SWING_TILT_BEGIN)

  62.                 TopDriveLinkTiltLed = LED_ON

  63.                 return

  64.             end if    

  65.                 

  66.                 

  67.                 

  68.                 

  69.                 

  70.             !TOPDRIVE-CODE=41

  71.             if (Get_SwingOffPermission() .and.&

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

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

  74.                 TopDriveLinkTiltState == TdsLinkTilt_OFF) then

  75.             

  76.                 call Set_TdsSwing(TDS_SWING_OFF_BEGIN)

  77.                 TopDriveLinkTiltLed = LED_ON

  78.                 return

  79.             end if  

  80.                 

  81.                 

  82.                 

  83.                 

  84.                 

  85.             !TOPDRIVE-CODE=42

  86.             if (Get_HookHeight() > (TL() + NFC() + PL - ECG) .and.&

  87.                 Get_SwingTiltPermission() .and.&

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

  89.                 Get_TdsSwing() == TDS_SWING_OFF_END .and.&

  90.                 TopDriveLinkTiltState == TdsLinkTilt_TILT) then

  91.             

  92.                 call Set_TdsSwing(TDS_SWING_TILT_BEGIN)

  93.                 TopDriveLinkTiltLed = LED_ON

  94.                 return

  95.             end if     

  96.                 

  97.                 

  98.                 

  99.                 

  100.             !TOPDRIVE-CODE=43

  101.             if (Get_HookHeight() > (TL() + NFC() + PL - ECG) .and.&

  102.                 Get_SwingOffPermission() .and.&

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

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

  105.                 TopDriveLinkTiltState == TdsLinkTilt_OFF) then

  106.             

  107.                 call Set_TdsSwing(TDS_SWING_OFF_BEGIN)

  108.                 TopDriveLinkTiltLed = LED_ON

  109.                 return

  110.             end if    

  111.                 

  112.                 

  113. 

  114.         endif

  115.         

  116.         

  117.         

  118.         

  119.         

  120.         

  121.         

  122.         

  123.         

  124.         

  125.         

  126.         

  127. !        if (DriveType == Kelly_DriveType) then

  128. !#ifdef OST

  129. !            print*, 'Evaluate_TdsSwing=Kelly'

  130. !#endif

  131. !        endif

  132.         

  133.     end subroutine

  134.     

  135.     subroutine Subscribe_TdsSwing()

  136.         use CDrillingConsoleVariables

  137.         implicit none

  138.     end subroutine

  139.     

  140. end module CTdsSwingEnum