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

87 lines
4.8 KiB
Raw Blame History 

  1. module CStandPipeManifold

  2.     use CStandPipeManifoldVariables

  3.     use SimulationVariables

  4.     use CManifolds

  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