mahmood19227
/
SimulationCore2
1
0
Förgrening 0
Kod Ärenden 0 Pull-förfrågningar 0 Släpp 0 Wiki Aktiviteter
Simulation Core
Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.
41 Incheckningar
2 Grenar
136 MiB
 
 
 
 
 
 
Träd: 0e3910b02f
Grenar Taggar
${ item.name }
Skapa branchen ${ searchTerm }
från '0e3910b02f'
${ noResults }
SimulationCore2/CSharp/Equipments/ControlPanels/CStandPipeManifold.f90

40 rader
2.4 KiB
Rå Blame Historik 

  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