SimulationCore2/CSharp/BasicInputs/WellProfile/CWellSurveyData.f90

module CWellSurveyData
    use CWellSurveyDataVariables
    implicit none    
    public    
    contains    
        integer function SetSurveyData(count, array)
        !DEC$ ATTRIBUTES DLLEXPORT::SetSurveyData
        !DEC$ ATTRIBUTES ALIAS: 'SetSurveyData' :: SetSurveyData
            implicit none
            integer, intent(in) :: count
            integer :: i
            type(CSurveyDataItem), intent(inout), target :: array(count)            
			type(CSurveyDataItem), pointer :: item
            WellSurveyData%Count = count
            if(size(WellSurveyData%Items) > 0) then
                deallocate(WellSurveyData%Items)
            end if
            if(count > 0) then
                allocate(WellSurveyData%Items(count))
                do i = 1, count
			        item => array(i)
                    WellSurveyData%Items(i)%MeasuredDepth = item%MeasuredDepth  
                    WellSurveyData%Items(i)%Inclination = item%Inclination
                    WellSurveyData%Items(i)%Azimoth = item%Azimoth
                    WellSurveyData%Items(i)%TotalVerticalDepth = item%TotalVerticalDepth 
                    WellSurveyData%Items(i)%X = item%X
                    WellSurveyData%Items(i)%Y = item%Y
                    WellSurveyData%Items(i)%Z = item%Z
                end do  
            end if

            SetSurveyData = 0
        end function SetSurveyData
end module CWellSurveyData