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