Simulation Core
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
 
 
 
 
 
 

35 linhas
675 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