SimulationCore2/CSharp/Equipments/ControlPanels/CStandPipeManifold.f90

module CStandPipeManifold
    use CStandPipeManifoldVariables
    use SimulationVariables
    implicit none    
    public    
    contains    


    subroutine StandPipeManifoldFromJson(parent)
        type(json_value),pointer :: parent
        type(json_core) :: json
        type(json_value),pointer :: p,pval
        logical::is_found

        ! 1. get related root
        call json%get(parent,'StandPipeManifold',p)
        
        ! 2. get member of data type from node
		call json%get(p,'StandPipeManifoldValve1',pval)
		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve1)
		call json%get(p,'StandPipeManifoldValve2',pval)
		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve2)
		call json%get(p,'StandPipeManifoldValve3',pval)
		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve3)
		call json%get(p,'StandPipeManifoldValve4',pval)
		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve4)
		call json%get(p,'StandPipeManifoldValve5',pval)
		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve5)
		call json%get(p,'StandPipeManifoldValve6',pval)
		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve6)
		call json%get(p,'StandPipeManifoldValve7',pval)
		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve7)
		call json%get(p,'StandPipeManifoldValve8',pval)
		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve8)
		call json%get(p,'StandPipeManifoldValve9',pval)
		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve9)
		call json%get(p,'StandPipeManifoldValve10',pval)
		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve10)
		call json%get(p,'StandPipeManifoldValve11',pval)
		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve11)
		call json%get(p,'StandPipeManifoldValve12',pval)
		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve12)
		call json%get(p,'StandPipeManifoldValve13',pval)
		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve13)
		call json%get(p,'StandPipeManifoldValve14',pval)
		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve14)
		call json%get(p,'StandPipeManifoldValve15',pval)
		call json%get(pval,data%Equipments%StandPipeManifold%StandPipeManifoldValve15)
		! call json%get(p,'StandPipeGauge1',pval)
		! call json%get(pval,data%Equipments%StandPipeManifold%StandPipeGauge1)
		! call json%get(p,'StandPipeGauge2',pval)
		! call json%get(pval,data%Equipments%StandPipeManifold%StandPipeGauge2)
    end subroutine

    subroutine StandPipeManifoldToJson(parent)

        type(json_value),pointer :: parent
        type(json_core) :: json
        type(json_value),pointer :: p

        ! 1. create new node
        call json%create_object(p,'StandPipeManifold')

        ! call json%add(p,"StandPipeManifoldValve1",data%Equipments%StandPipeManifold%StandPipeManifoldValve1)
        ! call json%add(p,"StandPipeManifoldValve2",data%Equipments%StandPipeManifold%StandPipeManifoldValve2)
        ! call json%add(p,"StandPipeManifoldValve3",data%Equipments%StandPipeManifold%StandPipeManifoldValve3)
        ! call json%add(p,"StandPipeManifoldValve4",data%Equipments%StandPipeManifold%StandPipeManifoldValve4)
        ! call json%add(p,"StandPipeManifoldValve5",data%Equipments%StandPipeManifold%StandPipeManifoldValve5)
        ! call json%add(p,"StandPipeManifoldValve6",data%Equipments%StandPipeManifold%StandPipeManifoldValve6)
        ! call json%add(p,"StandPipeManifoldValve7",data%Equipments%StandPipeManifold%StandPipeManifoldValve7)
        ! call json%add(p,"StandPipeManifoldValve8",data%Equipments%StandPipeManifold%StandPipeManifoldValve8)
        ! call json%add(p,"StandPipeManifoldValve9",data%Equipments%StandPipeManifold%StandPipeManifoldValve9)
        ! call json%add(p,"StandPipeManifoldValve10",data%Equipments%StandPipeManifold%StandPipeManifoldValve10)
        ! call json%add(p,"StandPipeManifoldValve11",data%Equipments%StandPipeManifold%StandPipeManifoldValve11)
        ! call json%add(p,"StandPipeManifoldValve12",data%Equipments%StandPipeManifold%StandPipeManifoldValve12)
        ! call json%add(p,"StandPipeManifoldValve13",data%Equipments%StandPipeManifold%StandPipeManifoldValve13)
        ! call json%add(p,"StandPipeManifoldValve14",data%Equipments%StandPipeManifold%StandPipeManifoldValve14)
        ! call json%add(p,"StandPipeManifoldValve15",data%Equipments%StandPipeManifold%StandPipeManifoldValve15)

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

        call json%add(parent,p)
    end subroutine

end module CStandPipeManifold