Simulation Core
Nelze vybrat více než 25 témat Téma musí začínat písmenem nebo číslem, může obsahovat pomlčky („-“) a může být dlouhé až 35 znaků.

před 1 rokem
před 1 rokem
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. Lesson%IsPathGeneration = path
  13. Lesson%IsWellSurveyData = survey
  14. end subroutine
  15. end module CLesson