Simulation Core
Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.

CLesson.f90 531 B

1 år sedan
1 år sedan
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