Simulation Core
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.

CInstallMudBucketPermission.f90 773 B

il y a 1 an
123456789101112131415161718192021222324252627282930313233343536
  1. module CInstallMudBucketPermission
  2. use COperationScenariosVariables
  3. implicit none
  4. contains
  5. subroutine Evaluate_InstallMudBucketPermission()
  6. implicit none
  7. ! if (DriveType == TopDrive_DriveType) then
  8. !#ifdef OST
  9. ! print*, 'Evaluate_InstallMudBucketPermission=TopDrive'
  10. !#endif
  11. ! endif
  12. !
  13. !
  14. !
  15. !
  16. !
  17. !
  18. !
  19. ! if (DriveType == Kelly_DriveType) then
  20. !#ifdef OST
  21. ! print*, 'Evaluate_InstallMudBucketPermission=Kelly'
  22. !#endif
  23. ! endif
  24. end subroutine
  25. subroutine Subscribe_InstallMudBucketPermission()
  26. implicit none
  27. ! imp me...
  28. end subroutine
  29. end module CInstallMudBucketPermission