module CLesson
    use CLessonVariables
    implicit none    
    public
    contains
        subroutine SetWellProfileApproach(path, survey)
        !DEC$ ATTRIBUTES DLLEXPORT :: SetWellProfileApproach
        !DEC$ ATTRIBUTES ALIAS: 'SetWellProfileApproach' :: SetWellProfileApproach
            implicit none
            logical, intent(in) :: path
            logical, intent(in) :: survey
            IsPathGeneration = path
            IsWellSurveyData = survey        
        end subroutine
end module CLesson