SimulationCore2/CSharp/BasicInputs/WellProfile/CPathGeneration.f90

module CPathGeneration
	use SimulationVariables !@
    use json_module
	implicit none    
	public    
	contains

    subroutine PathGenerationToJson(parent)

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

        ! 1. create new node
        call json%create_object(p,'Path')
        
        ! 2. add member of data type to new node
        ! call StringConfigurationToJson(p) 
        ! call FormationToJson(p) 
        ! call json%add(p,"",data%Configuration%Formation%Formations(i)%Abrasiveness)

        ! 3. add new node to parent
        call json%add(parent,p)
    end subroutine

end module CPathGeneration