Simulation Core
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.
 
 
 
 
 
 

25 lignes
679 B

  1. # 1 "/home/admin/SimulationCore2/CSharp/BasicInputs/WellProfile/CWellSurveyDataVariables.f90"
  2. module CWellSurveyDataVariables
  3. implicit none
  4. public
  5. ! types
  6. type, bind(c), public :: CSurveyDataItem
  7. real(8) :: MeasuredDepth
  8. real(8) :: Inclination
  9. real(8) :: Azimoth
  10. real(8) :: TotalVerticalDepth
  11. real(8) :: X
  12. real(8) :: Y
  13. real(8) :: Z
  14. end type CSurveyDataItem
  15. Type :: WellSurveyDataType
  16. integer :: Count = 0
  17. type(CSurveyDataItem), allocatable :: Items(:)
  18. End Type WellSurveyDataType
  19. ! Type(WellSurveyDataType)::WellSurveyData
  20. contains
  21. end module CWellSurveyDataVariables