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

59 lines
1.3 KiB
Raw Blame History 

  1. module CSwingDrillPermission

  2.     use COperationScenariosVariables

  3.     implicit none

  4.     

  5.     contains

  6.     

  7.     subroutine Evaluate_SwingDrillPermission()

  8.         implicit none

  9.         

  10.         

  11.         if (DriveType == TopDrive_DriveType) then

  12. #ifdef OST

  13.             print*, 'Evaluate_SwingDrillPermission=TopDrive'

  14. #endif

  15. 

  16.             !TOPDRIVE-CODE=33

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

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

  19.                 TopDriveTdsPowerState /= TdsPower_OFF) then

  20.             

  21.                 call Set_SwingDrillPermission(.true.)

  22.                 return

  23.             end if

  24.                 

  25.                 

  26.                 

  27.                 

  28.                 

  29.                 

  30.             call Set_SwingDrillPermission(.false.)    

  31.                 

  32.                 

  33.                 

  34.                 

  35.                 

  36.         endif

  37.         

  38.         

  39.         

  40.         

  41.         

  42.         

  43.         

  44.         

  45.         

  46. !        if (DriveType == Kelly_DriveType) then

  47. !#ifdef OST

  48. !            print*, 'Evaluate_SwingDrillPermission=Kelly'

  49. !#endif

  50. !        endif

  51.         

  52.         

  53.     end subroutine

  54.     

  55.     subroutine Subscribe_SwingDrillPermission()

  56.         implicit none

  57.     end subroutine

  58.     

  59. end module CSwingDrillPermission