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

88 lines
4.7 KiB
Raw Permalink Blame History 

  1. # 1 "/home/admin/SimulationCore2/CSharp/Equipments/ControlPanels/CStandPipeManifold.f90"

  2. module CStandPipeManifold

  3.     use CStandPipeManifoldVariables

  4.     use SimulationVariables

  5.     implicit none    

  6.     public    

  7.     contains    

  8. 

  9. 

  10.     subroutine StandPipeManifoldFromJson(parent)

  11.         type(json_value),pointer :: parent

  12.         type(json_core) :: json

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

  14.         logical::is_found

  15. 

  16. ! 1. get related root

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

  18.         

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  54.     end subroutine

  55. 

  56.     subroutine StandPipeManifoldToJson(parent)

  57. 

  58.         type(json_value),pointer :: parent

  59.         type(json_core) :: json

  60.         type(json_value),pointer :: p

  61. 

  62. ! 1. create new node

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

  64. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  80. 

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

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

  83. 

  84.         call json%add(parent,p)

  85.     end subroutine

  86. 

  87. end module CStandPipeManifold