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