Simulation Core
Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.
 
 
 
 
 
 

35 рядки
641 B

  1. module COtherProblemsVariables
  2. use CProblemDifinition
  3. implicit none
  4. public
  5. ! Input vars
  6. TYPE:: OtherProblemsType
  7. type(CProblem) :: RigAlarm
  8. type(CProblem) :: RigWaterSupply
  9. type(CProblem) :: RigAir
  10. type(CProblem) :: Gen1
  11. type(CProblem) :: Gen2
  12. type(CProblem) :: Gen3
  13. type(CProblem) :: Gen4
  14. type(CProblem) :: Scr1
  15. type(CProblem) :: Scr2
  16. type(CProblem) :: Scr3
  17. type(CProblem) :: Scr4
  18. end type OtherProblemsType
  19. contains
  20. end module COtherProblemsVariables