Simulation Core
Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.
 
 
 
 
 
 

47 строки
1.3 KiB

  1. MODULE TorqueDragMain
  2. use CPumpsVariables
  3. use CPumps
  4. use CDrillingConsoleVariables
  5. use ConfigurationVariables
  6. use ConfigurationVariables
  7. use CDataDisplayConsole
  8. use ConfigurationVariables
  9. ! USE CSimulationVariables
  10. use ConfigurationVariables
  11. IMPLICIT NONE
  12. PUBLIC
  13. CONTAINS
  14. ! subroutine TorqueDrag_Setup()
  15. ! use CSimulationVariables
  16. ! implicit none
  17. ! call OnSimulationInitialization%Add(TorqueDrag_Init)
  18. ! call OnSimulationStop%Add(TorqueDrag_Init)
  19. ! call OnTorqueDragStep%Add(TorqueDrag_Step)
  20. ! call OnTorqueDragOutput%Add(TorqueDrag_Output)
  21. ! call OnTorqueDragMain%Add(TorqueDragMainBody)
  22. ! end subroutine
  23. subroutine TorqueDrag_Init
  24. implicit none
  25. end subroutine TorqueDrag_Init
  26. subroutine TorqueDrag_Step
  27. implicit none
  28. end subroutine TorqueDrag_Step
  29. subroutine TorqueDrag_Output
  30. implicit none
  31. end subroutine TorqueDrag_Output
  32. ! SUBROUTINE TorqueDragMainBody
  33. ! ! USE ifport
  34. ! ! USE ifmt
  35. ! ! USE CSimulationVariables
  36. ! !USE TDSUP
  37. ! IMPLICIT NONE
  38. ! !CALL TD_MainCalculations
  39. ! END SUBROUTINE TorqueDragMainBody
  40. END MODULE TorqueDragMain