Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

CRemoveFillupHeadPermission.f90 834 B

1 year ago
123456789101112131415161718192021222324252627282930313233343536
  1. module CRemoveFillupHeadPermission
  2. use OperationScenariosModule
  3. implicit none
  4. contains
  5. subroutine Evaluate_RemoveFillupHeadPermission()
  6. implicit none
  7. ! if (DriveType == TopDrive_DriveType) then
  8. !#ifdef OST
  9. ! if(print_log) print*, 'Evaluate_RemoveFillupHeadPermission=TopDrive'
  10. !#endif
  11. ! endif
  12. !
  13. !
  14. !
  15. !
  16. !
  17. !
  18. !
  19. !
  20. !
  21. ! if (DriveType == Kelly_DriveType) then
  22. !#ifdef OST
  23. ! if(print_log) print*, 'Evaluate_RemoveFillupHeadPermission=Kelly'
  24. !#endif
  25. ! endif
  26. end subroutine
  27. subroutine Subscribe_RemoveFillupHeadPermission()
  28. implicit none
  29. ! imp me...
  30. end subroutine
  31. end module CRemoveFillupHeadPermission