module CStudentStationVariables ! use CVoidEventHandlerCollection implicit none public ! Input vars type StudentStationType logical :: FillupHeadInstallation logical :: PitGainLossZero logical :: MudBoxInstallation logical :: TapSelector end type StudentStationType type(StudentStationType)::StudentStation ! ! type(VoidEventHandlerCollection) :: OnStudentStation%FillupHeadInstallationPress ! ! type(VoidEventHandlerCollection) :: OnFillupHeadRemovePress ! ! type(VoidEventHandlerCollection) :: OnMudBoxInstallationPress ! ! type(VoidEventHandlerCollection) :: ! Output vars contains end module CStudentStationVariables