mahmood19227
/
SimulationCore2
1
0
Vork 0
Code Kwesties 0 Pull-aanvragen 0 Publicaties 0 Wiki Activiteit
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.
68 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 14f31e09cb
Branches Labels
${ item.name }
Maak branch ${ searchTerm }
van '14f31e09cb'
${ noResults }
SimulationCore2/CSharp/Equipments/ControlPanels/CChokeControlPanel.i90

79 regels
3.9 KiB
Ruw Blame Geschiedenis 

  1. # 1 "/home/admin/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,'ChokeControlLever',pval)

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

  19.         

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

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

  22.         

  23.         

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

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

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

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

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

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

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

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

  32. 		

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  49.     end subroutine

  50. 

  51.     subroutine ChokeControlPanelToJson(parent)

  52. 

  53.         type(json_value),pointer :: parent

  54.         type(json_core) :: json

  55.         type(json_value),pointer :: p

  56. 

  57. ! 1. create new node

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  73. 

  74. 

  75.         call json%add(parent,p)

  76.     end subroutine

  77.     

  78. end module CChokeControlPanel