Simulation Core
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.
 
 
 
 
 
 

17 rindas
360 B

  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