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

55 lines
1.2 KiB
Raw Blame History 

  1. module CFillupHeadPermission

  2.     use COperationScenariosVariables

  3.     implicit none

  4.     

  5.     contains

  6.     

  7.     subroutine Evaluate_FillupHeadPermission()

  8.         implicit none

  9.         

  10.         

  11.         

  12.         if (DriveType == TopDrive_DriveType) then

  13. #ifdef OST

  14.             print*, 'Evaluate_FillupHeadPermission=TopDrive'

  15. #endif

  16. 

  17. 

  18.             !TOPDRIVE-CODE=66

  19.             if (Get_NearFloorConnection() >= 3 .and. Get_NearFloorConnection() <= 10 .and.&

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

  21.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  22.             

  23.                 call Set_FillupHeadPermission(.true.)

  24.                 return

  25.             end if

  26. 

  27. 

  28.             call Set_FillupHeadPermission(.false.)

  29. 

  30. 

  31.         endif

  32.         

  33.         

  34.         

  35.         

  36.         

  37.         

  38.         

  39.         

  40.         

  41. !        if (DriveType == Kelly_DriveType) then

  42. !#ifdef OST

  43. !            print*, 'Evaluate_FillupHeadPermission=Kelly'

  44. !#endif

  45. !        endif

  46.         

  47.         

  48.         

  49.     end subroutine

  50.     

  51.     subroutine Subscribe_FillupHeadPermission()

  52.         implicit none

  53.     end subroutine

  54.     

  55. end module CFillupHeadPermission