mahmood19227
/
SimulationCore2
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
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.
62 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 95ad7885e9
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '95ad7885e9'
${ noResults }
SimulationCore2/CSharp/Equipments/ControlPanels/CChokeControlPanel.i90

75 lines
3.8 KiB
Raw Blame History 

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/Equipments/ControlPanels/CChokeControlPanel.f90"

  2. module CChokeControlPanel

  3.     use CChokeControlPanelVariables

  4.     use SimulationVariables

  5.     implicit none    

  6.     public    

  7.     contains

  8. 

  9.     subroutine ChokeControlPanelFromJson(parent)

  10.         type(json_value),pointer :: parent

  11.         type(json_core) :: json

  12.         type(json_value),pointer :: p,pval

  13. ! 1. get related root

  14.         call json%get(parent,'ChokeControl',p)

  15.         

  16. ! 2. get member of data type from node

  17.         call json%get(p,'ChokePanelPumpSelectorSwitch',pval)

  18. 		call json%get(pval,data%Equipments%ChokeControlPanel%ChokePanelPumpSelectorSwitch)

  19. 		call json%get(p,'ChokePanelStrokeResetSwitch',pval)

  20. 		call json%get(pval,data%Equipments%ChokeControlPanel%ChokePanelStrokeResetSwitch)

  21. 		call json%get(p,'ChokeSelectorSwitch',pval)

  22. 		call json%get(pval,data%Equipments%ChokeControlPanel%ChokeSelectorSwitch)

  23. 		call json%get(p,'ChokeRateControlKnob',pval)

  24. 		call json%get(pval,data%Equipments%ChokeControlPanel%ChokeRateControlKnob)

  25. 		call json%get(p,'ChokeControlLever',pval)

  26. 		call json%get(pval,data%Equipments%ChokeControlPanel%ChokeControlLever)

  27. 		call json%get(p,'ChokePanelRigAirSwitch',pval)

  28. 		call json%get(pval,data%Equipments%ChokeControlPanel%ChokePanelRigAirSwitch)

  29. ! call json%get(p,'EnableAutoChoke',pval)

  30. ! call json%get(pval,data%Equipments%ChokeControlPanel%EnableAutoChoke)

  31. ! call json%get(p,'StandPipePressure',pval)

  32. ! call json%get(pval,data%Equipments%ChokeControlPanel%StandPipePressure)

  33. ! call json%get(p,'CasingPressure',pval)

  34. ! call json%get(pval,data%Equipments%ChokeControlPanel%CasingPressure)

  35. ! call json%get(p,'ChokePosition',pval)

  36. ! call json%get(pval,data%Equipments%ChokeControlPanel%ChokePosition)

  37. ! call json%get(p,'ChokePanelSPMCounter',pval)

  38. ! call json%get(pval,data%Equipments%ChokeControlPanel%ChokePanelSPMCounter)

  39. ! call json%get(p,'ChokePanelTotalStrokeCounter',pval)

  40. ! call json%get(pval,data%Equipments%ChokeControlPanel%ChokePanelTotalStrokeCounter)

  41. ! call json%get(p,'Choke1LED',pval)

  42. ! call json%get(pval,data%Equipments%ChokeControlPanel%Choke1LED)

  43. ! call json%get(p,'Choke2LED',pval)

  44. ! call json%get(pval,data%Equipments%ChokeControlPanel%Choke2LED)

  45.     end subroutine

  46. 

  47.     subroutine ChokeControlPanelToJson(parent)

  48. 

  49.         type(json_value),pointer :: parent

  50.         type(json_core) :: json

  51.         type(json_value),pointer :: p

  52. 

  53. ! 1. create new node

  54.         call json%create_object(p,'ChokeControl')

  55. ! call json%add(p,"ChokePanelPumpSelectorSwitch",data%Equipments%ChokeControlPanel%ChokePanelPumpSelectorSwitch)

  56. ! call json%add(p,"ChokePanelStrokeResetSwitch",data%Equipments%ChokeControlPanel%ChokePanelStrokeResetSwitch)

  57. ! call json%add(p,"ChokeSelectorSwitch",data%Equipments%ChokeControlPanel%ChokeSelectorSwitch)

  58. ! call json%add(p,"ChokeRateControlKnob",data%Equipments%ChokeControlPanel%ChokeRateControlKnob)

  59. ! call json%add(p,"ChokeControlLever",data%Equipments%ChokeControlPanel%ChokeControlLever)

  60. ! call json%add(p,"ChokePanelRigAirSwitch",data%Equipments%ChokeControlPanel%ChokePanelRigAirSwitch)

  61. ! call json%add(p,"EnableAutoChoke",data%Equipments%ChokeControlPanel%EnableAutoChoke)

  62.         call json%add(p,"StandPipePressure",data%Equipments%ChokeControlPanel%StandPipePressure)

  63.         call json%add(p,"CasingPressure",data%Equipments%ChokeControlPanel%CasingPressure)

  64.         call json%add(p,"ChokePosition",data%Equipments%ChokeControlPanel%ChokePosition)

  65.         call json%add(p,"ChokePanelSPMCounter",data%Equipments%ChokeControlPanel%ChokePanelSPMCounter)

  66.         call json%add(p,"ChokePanelTotalStrokeCounter",data%Equipments%ChokeControlPanel%ChokePanelTotalStrokeCounter)

  67.         call json%add(p,"Choke1LED",data%Equipments%ChokeControlPanel%Choke1LED)

  68.         call json%add(p,"Choke2LED",data%Equipments%ChokeControlPanel%Choke2LED)

  69. 

  70. 

  71.         call json%add(parent,p)

  72.     end subroutine

  73.     

  74. end module CChokeControlPanel