Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

CWellSurveyDataVariables.f90 497 B

1 year ago
1234567891011121314151617181920
  1. module CWellSurveyDataVariables
  2. implicit none
  3. public
  4. ! types
  5. type, bind(c), public :: CSurveyDataItem
  6. real(8) :: MeasuredDepth
  7. real(8) :: Inclination
  8. real(8) :: Azimoth
  9. real(8) :: TotalVerticalDepth
  10. real(8) :: X
  11. real(8) :: Y
  12. real(8) :: Z
  13. end type CSurveyDataItem
  14. integer :: SurveyDataCount = 0
  15. type(CSurveyDataItem), allocatable :: WellSurveyData(:)
  16. contains
  17. end module CWellSurveyDataVariables