Simulation Core
25개 이상의 토픽을 선택하실 수 없습니다. Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

CHoistingProblemsVariables.f90 376 B

1 년 전
1234567891011121314151617
  1. module CHoistingProblemsVariables
  2. use CProblemDifinition
  3. implicit none
  4. public
  5. ! Input vars
  6. type :: HoistingProblemsType
  7. type(CProblem) :: MotorFail
  8. type(CProblem) :: ClutchEngage
  9. type(CProblem) :: ClutchDisengage
  10. end type HoistingProblemsType
  11. contains
  12. end module CHoistingProblemsVariables