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.
 
 
 
 
 
 

26 linhas
792 B

  1. module CCasingLinerChokeVariables
  2. implicit none
  3. public
  4. ! variables
  5. Type::CasingLinerChokeType
  6. real(8) :: CasingDepth
  7. real(8) :: CasingId
  8. real(8) :: CasingOd
  9. real(8) :: CasingWeight
  10. real(8) :: CasingCollapsePressure
  11. real(8) :: CasingTensileStrength
  12. real(8) :: LinerTopDepth
  13. real(8) :: LinerLength
  14. real(8) :: LinerId
  15. real(8) :: LinerOd
  16. real(8) :: LinerWeight
  17. real(8) :: LinerCollapsePressure
  18. real(8) :: LinerTensileStrength
  19. real(8) :: OpenHoleId
  20. real(8) :: OpenHoleLength
  21. End Type CasingLinerChokeType
  22. ! Type(CasingLinerChokeType)::CasingLinerChoke
  23. contains
  24. end module CCasingLinerChokeVariables