|
1234567891011121314151617181920212223242526 |
- module CCasingLinerChokeVariables
- implicit none
- public
- ! variables
- Type::CasingLinerChokeType
- real(8) :: CasingDepth
- real(8) :: CasingId
- real(8) :: CasingOd
- real(8) :: CasingWeight
- real(8) :: CasingCollapsePressure
- real(8) :: CasingTensileStrength
-
- real(8) :: LinerTopDepth
- real(8) :: LinerLength
- real(8) :: LinerId
- real(8) :: LinerOd
- real(8) :: LinerWeight
- real(8) :: LinerCollapsePressure
- real(8) :: LinerTensileStrength
-
- real(8) :: OpenHoleId
- real(8) :: OpenHoleLength
- End Type CasingLinerChokeType
- Type(CasingLinerChokeType)::CasingLinerChoke
- contains
- end module CCasingLinerChokeVariables
|