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.
59 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 9f4b16fe97
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '9f4b16fe97'
${ noResults }
SimulationCore2/CSharp/Equipments/ControlPanels/CStandPipeManifold.i90

89 lines
4.7 KiB
Raw Blame History 

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

  2. module CStandPipeManifold

  3.     use CStandPipeManifoldVariables

  4.     use SimulationVariables

  5.     use CManifolds

  6.     implicit none    

  7.     public    

  8.     contains    

  9. 

  10. 

  11.     subroutine StandPipeManifoldFromJson(parent)

  12.         type(json_value),pointer :: parent

  13.         type(json_core) :: json

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

  15.         logical::is_found

  16. 

  17. ! 1. get related root

  18.         call json%get(parent,'StandPipeManifold',p)

  19.         

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

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

  22. 		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve1)

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

  24. 		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve2)

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

  26. 		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve3)

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

  28. 		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve4)

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

  30. 		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve5)

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

  32. 		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve6)

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

  34. 		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve7)

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

  36. 		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve8)

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

  38. 		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve9)

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

  40. 		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve10)

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

  42. 		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve11)

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

  44. 		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve12)

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

  46. 		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve13)

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

  48. 		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve14)

  49. 		call json%get(p,'StandPipeManifoldValve15',pval)

  50. 		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve15)

  51. ! call json%get(p,'StandPipeGauge1',pval)

  52. ! call json%get(pval,data%Equipments%StandPipeManifold%StandPipeGauge1)

  53. ! call json%get(p,'StandPipeGauge2',pval)

  54. ! call json%get(pval,data%Equipments%StandPipeManifold%StandPipeGauge2)

  55.     end subroutine

  56. 

  57.     subroutine StandPipeManifoldToJson(parent)

  58. 

  59.         type(json_value),pointer :: parent

  60.         type(json_core) :: json

  61.         type(json_value),pointer :: p

  62. 

  63. ! 1. create new node

  64.         call json%create_object(p,'StandPipeManifold')

  65. 

  66. ! call json%add(p,"StandPipeManifoldValve1",data%Equipments%StandPipeManifold%StandPipeManifoldValve1)

  67. ! call json%add(p,"StandPipeManifoldValve2",data%Equipments%StandPipeManifold%StandPipeManifoldValve2)

  68. ! call json%add(p,"StandPipeManifoldValve3",data%Equipments%StandPipeManifold%StandPipeManifoldValve3)

  69. ! call json%add(p,"StandPipeManifoldValve4",data%Equipments%StandPipeManifold%StandPipeManifoldValve4)

  70. ! call json%add(p,"StandPipeManifoldValve5",data%Equipments%StandPipeManifold%StandPipeManifoldValve5)

  71. ! call json%add(p,"StandPipeManifoldValve6",data%Equipments%StandPipeManifold%StandPipeManifoldValve6)

  72. ! call json%add(p,"StandPipeManifoldValve7",data%Equipments%StandPipeManifold%StandPipeManifoldValve7)

  73. ! call json%add(p,"StandPipeManifoldValve8",data%Equipments%StandPipeManifold%StandPipeManifoldValve8)

  74. ! call json%add(p,"StandPipeManifoldValve9",data%Equipments%StandPipeManifold%StandPipeManifoldValve9)

  75. ! call json%add(p,"StandPipeManifoldValve10",data%Equipments%StandPipeManifold%StandPipeManifoldValve10)

  76. ! call json%add(p,"StandPipeManifoldValve11",data%Equipments%StandPipeManifold%StandPipeManifoldValve11)

  77. ! call json%add(p,"StandPipeManifoldValve12",data%Equipments%StandPipeManifold%StandPipeManifoldValve12)

  78. ! call json%add(p,"StandPipeManifoldValve13",data%Equipments%StandPipeManifold%StandPipeManifoldValve13)

  79. ! call json%add(p,"StandPipeManifoldValve14",data%Equipments%StandPipeManifold%StandPipeManifoldValve14)

  80. ! call json%add(p,"StandPipeManifoldValve15",data%Equipments%StandPipeManifold%StandPipeManifoldValve15)

  81. 

  82.         call json%add(p,"StandPipeGauge1",data%Equipments%StandPipeManifold%StandPipeGauge1)

  83.         call json%add(p,"StandPipeGauge2",data%Equipments%StandPipeManifold%StandPipeGauge2)

  84. 

  85.         call json%add(parent,p)

  86.     end subroutine

  87. 

  88. end module CStandPipeManifold