mahmood19227
/
SimulationCore2
1
0
Forka 0
Codice Problemi 0 Pull Requests 0 Rilasci 0 Wiki Attività
Simulation Core
Non puoi selezionare più di 25 argomenti Gli argomenti devono iniziare con una lettera o un numero, possono includere trattini ('-') e possono essere lunghi fino a 35 caratteri.
57 Commit
2 Rami (Branch)
136 MiB
 
 
 
 
 
 
Albero (Tree): 8619d976a7
Rami (Branch) Tag
${ item.name }
Crea branch ${ searchTerm }
da '8619d976a7'
${ noResults }
SimulationCore2/CSharp/OperationScenarios/Permissions/CSwingDrillPermission.f90

61 righe
1.4 KiB
Originale Blame Cronologia 

  1. module CSwingDrillPermission

  2.     use OperationScenariosModule

  3.     use CTopDrivePanelVariables

  4.     use SimulationVariables

  5.     implicit none

  6.     

  7.     contains

  8.     

  9.     subroutine Evaluate_SwingDrillPermission()

  10.         implicit none

  11.         

  12.         

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

  14. #ifdef OST

  15.             print*, 'Evaluate_SwingDrillPermission=TopDrive'

  16. #endif

  17. 

  18.             !TOPDRIVE-CODE=33

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

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

  21.                 data%Equipments%TopDrivePanel%TopDriveTdsPowerState /= TdsPower_OFF) then

  22.             

  23.                 call Set_SwingDrillPermission(.true.)

  24.                 return

  25.             end if

  26.                 

  27.                 

  28.                 

  29.                 

  30.                 

  31.                 

  32.             call Set_SwingDrillPermission(.false.)    

  33.                 

  34.                 

  35.                 

  36.                 

  37.                 

  38.         endif

  39.         

  40.         

  41.         

  42.         

  43.         

  44.         

  45.         

  46.         

  47.         

  48. !        if (DriveType == Kelly_DriveType) then

  49. !#ifdef OST

  50. !            print*, 'Evaluate_SwingDrillPermission=Kelly'

  51. !#endif

  52. !        endif

  53.         

  54.         

  55.     end subroutine

  56.     

  57.     subroutine Subscribe_SwingDrillPermission()

  58.         implicit none

  59.     end subroutine

  60.     

  61. end module CSwingDrillPermission