Simulation Core
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.

pirms 1 gada
pirms 1 gada
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