Simulation Core
您最多选择25个主题 主题必须以字母或数字开头,可以包含连字符 (-),并且长度不得超过35个字符
 
 
 
 
 
 

26 行
767 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