Simulation Core
Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.

1 рік тому
123456789101112131415
  1. module CLesson
  2. use CLessonVariables
  3. implicit none
  4. public
  5. contains
  6. subroutine SetWellProfileApproach(path, survey)
  7. !DEC$ ATTRIBUTES DLLEXPORT :: SetWellProfileApproach
  8. !DEC$ ATTRIBUTES ALIAS: 'SetWellProfileApproach' :: SetWellProfileApproach
  9. implicit none
  10. logical, intent(in) :: path
  11. logical, intent(in) :: survey
  12. IsPathGeneration = path
  13. IsWellSurveyData = survey
  14. end subroutine
  15. end module CLesson