Simulation Core
Nie możesz wybrać więcej, niż 25 tematów Tematy muszą się zaczynać od litery lub cyfry, mogą zawierać myślniki ('-') i mogą mieć do 35 znaków.
 
 
 
 
 
 

15 wiersze
531 B

  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