module CElevatorConnectionEnumVariables ! use CVoidEventHandlerCollection implicit none ! Mahmood: this variable moved to operationscenariocommon ! integer :: OperationScenario%ElevatorConnection = 0 ! type(VoidEventHandlerCollection) :: OnElevatorConnectionChange public enum, bind(c) enumerator ELEVATOR_CONNECTION_NOTHING enumerator ELEVATOR_CONNECTION_STRING enumerator ELEVATOR_CONNECTION_STAND enumerator ELEVATOR_CONNECTION_SINGLE enumerator ELEVATOR_LATCH_STRING enumerator ELEVATOR_LATCH_SINGLE enumerator ELEVATOR_LATCH_STAND end enum ! private :: OperationScenario%ElevatorConnection contains ! subroutine Set_ElevatorConnection_WN(v) ! !DEC$ ATTRIBUTES DLLEXPORT :: Set_ElevatorConnection_WN ! !DEC$ ATTRIBUTES ALIAS: 'Set_ElevatorConnection_WN' :: Set_ElevatorConnection_WN ! implicit none ! integer , intent(in) :: v ! call Set_ElevatorConnection(v) ! end subroutine ! integer function Get_ElevatorConnection_WN() ! !DEC$ ATTRIBUTES DLLEXPORT :: Get_ElevatorConnection_WN ! !DEC$ ATTRIBUTES ALIAS: 'Get_ElevatorConnection_WN' :: Get_ElevatorConnection_WN ! implicit none ! Get_ElevatorConnection_WN = OperationScenario%ElevatorConnection ! end function end module CElevatorConnectionEnumVariables