SimulationCore2/CSharp/BasicInputs/WellProfile/CWellSurveyDataVariables.f90

module CWellSurveyDataVariables
    implicit none
    public
    
    ! types
    type, bind(c), public :: CSurveyDataItem
        real(8) :: MeasuredDepth
        real(8) :: Inclination
        real(8) :: Azimoth
        real(8) :: TotalVerticalDepth
        real(8) :: X
        real(8) :: Y
        real(8) :: Z
    end type CSurveyDataItem

    Type :: WellSurveyDataType
        integer :: Count = 0
        type(CSurveyDataItem), allocatable :: Items(:)
    End Type WellSurveyDataType
    
    Type(WellSurveyDataType)::WellSurveyData
    contains
end module CWellSurveyDataVariables