Simulation Core
Non puoi selezionare più di 25 argomenti Gli argomenti devono iniziare con una lettera o un numero, possono includere trattini ('-') e possono essere lunghi fino a 35 caratteri.

CStudentStationVariables.f90 746 B

1 anno fa
1 anno fa
1 anno fa
1 anno fa
1 anno fa
1234567891011121314151617181920212223242526
  1. module CStudentStationVariables
  2. ! use CVoidEventHandlerCollection
  3. implicit none
  4. public
  5. ! Input vars
  6. type StudentStationType
  7. logical :: FillupHeadInstallation
  8. logical :: PitGainLossZero
  9. logical :: MudBoxInstallation
  10. logical :: TapSelector
  11. end type StudentStationType
  12. type(StudentStationType)::StudentStation
  13. ! ! type(VoidEventHandlerCollection) :: OnStudentStation%FillupHeadInstallationPress
  14. ! ! type(VoidEventHandlerCollection) :: OnFillupHeadRemovePress
  15. ! ! type(VoidEventHandlerCollection) :: OnMudBoxInstallationPress
  16. ! ! type(VoidEventHandlerCollection) ::
  17. ! Output vars
  18. contains
  19. end module CStudentStationVariables