module PermissionsVariables ! use CVoidEventHandlerCollection type::PermissionsType logical :: FillupHeadPermission = .false. logical :: InstallFillupHeadPermission = .false. logical :: InstallMudBucketPermission = .false. logical :: IrIbopPermission = .false. logical :: IrSafetyValvePermission = .false. logical :: RemoveFillupHeadPermission = .false. logical :: RemoveMudBucketPermission = .false. logical :: SwingDrillPermission = .false. logical :: SwingOffPermission = .false. logical :: SwingTiltPermission = .false. end type PermissionsType contains end module