|
123456789101112131415 |
- 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
- Lesson%IsPathGeneration = path
- Lesson%IsWellSurveyData = survey
- end subroutine
- end module CLesson
|