Simulation Core
Nie możesz wybrać więcej, niż 25 tematów Tematy muszą się zaczynać od litery lub cyfry, mogą zawierać myślniki ('-') i mogą mieć do 35 znaków.
 
 
 
 
 
 

16 wiersze
675 B

  1. module PermissionsVariables
  2. ! use CVoidEventHandlerCollection
  3. type::PermissionsType
  4. logical :: FillupHeadPermission = .false.
  5. logical :: InstallFillupHeadPermission = .false.
  6. logical :: InstallMudBucketPermission = .false.
  7. logical :: IrIbopPermission = .false.
  8. logical :: IrSafetyValvePermission = .false.
  9. logical :: RemoveFillupHeadPermission = .false.
  10. logical :: RemoveMudBucketPermission = .false.
  11. logical :: SwingDrillPermission = .false.
  12. logical :: SwingOffPermission = .false.
  13. logical :: SwingTiltPermission = .false.
  14. end type PermissionsType
  15. contains
  16. end module