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

40 lines
2.4 KiB
Raw Permalink 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 StandPipeManifoldToJson(parent)

  11. 

  12.         type(json_value),pointer :: parent

  13.         type(json_core) :: json

  14.         type(json_value),pointer :: p

  15. 

  16.         ! 1. create new node

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

  18. 

  19.         call json%add(p,"StandPipeManifoldValve1",data%EquipmentControl%StandPipeManifold%StandPipeManifoldValve1)

  20.         call json%add(p,"StandPipeManifoldValve2",data%EquipmentControl%StandPipeManifold%StandPipeManifoldValve2)

  21.         call json%add(p,"StandPipeManifoldValve3",data%EquipmentControl%StandPipeManifold%StandPipeManifoldValve3)

  22.         call json%add(p,"StandPipeManifoldValve4",data%EquipmentControl%StandPipeManifold%StandPipeManifoldValve4)

  23.         call json%add(p,"StandPipeManifoldValve5",data%EquipmentControl%StandPipeManifold%StandPipeManifoldValve5)

  24.         call json%add(p,"StandPipeManifoldValve6",data%EquipmentControl%StandPipeManifold%StandPipeManifoldValve6)

  25.         call json%add(p,"StandPipeManifoldValve7",data%EquipmentControl%StandPipeManifold%StandPipeManifoldValve7)

  26.         call json%add(p,"StandPipeManifoldValve8",data%EquipmentControl%StandPipeManifold%StandPipeManifoldValve8)

  27.         call json%add(p,"StandPipeManifoldValve9",data%EquipmentControl%StandPipeManifold%StandPipeManifoldValve9)

  28.         call json%add(p,"StandPipeManifoldValve10",data%EquipmentControl%StandPipeManifold%StandPipeManifoldValve10)

  29.         call json%add(p,"StandPipeManifoldValve11",data%EquipmentControl%StandPipeManifold%StandPipeManifoldValve11)

  30.         call json%add(p,"StandPipeManifoldValve12",data%EquipmentControl%StandPipeManifold%StandPipeManifoldValve12)

  31.         call json%add(p,"StandPipeManifoldValve13",data%EquipmentControl%StandPipeManifold%StandPipeManifoldValve13)

  32.         call json%add(p,"StandPipeManifoldValve14",data%EquipmentControl%StandPipeManifold%StandPipeManifoldValve14)

  33.         call json%add(p,"StandPipeManifoldValve15",data%EquipmentControl%StandPipeManifold%StandPipeManifoldValve15)

  34.         call json%add(p,"StandPipeGauge1",data%EquipmentControl%StandPipeManifold%StandPipeGauge1)

  35.         call json%add(p,"StandPipeGauge2",data%EquipmentControl%StandPipeManifold%StandPipeGauge2)

  36. 

  37.         call json%add(parent,p)

  38.     end subroutine

  39. 

  40. end module CStandPipeManifold