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.f90

86 lines
4.8 KiB
Raw Permalink Blame History 

  1. module CStandPipeManifold

  2.     use CStandPipeManifoldVariables

  3.     use SimulationVariables

  4.     implicit none    

  5.     public    

  6.     contains    

  7. 

  8. 

  9.     subroutine StandPipeManifoldFromJson(parent)

  10.         type(json_value),pointer :: parent

  11.         type(json_core) :: json

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

  13.         logical::is_found

  14. 

  15.         ! 1. get related root

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

  17.         

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  53.     end subroutine

  54. 

  55.     subroutine StandPipeManifoldToJson(parent)

  56. 

  57.         type(json_value),pointer :: parent

  58.         type(json_core) :: json

  59.         type(json_value),pointer :: p

  60. 

  61.         ! 1. create new node

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

  63. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  79. 

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

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

  82. 

  83.         call json%add(parent,p)

  84.     end subroutine

  85. 

  86. end module CStandPipeManifold