SimulationCore2/testjson.f90

program RedisInterface
    use json_module
    use CStringConfigurationVariables
    
    type(json_file)            :: jsonfile
    type(json_value),pointer   :: jsonvalue,jsonvalue2,child,child2,jsonvalue3
    type(json_core)            :: jsoncore
    logical                    :: is_found
    integer ::n_children,i,j
    type(CStringItem), allocatable :: StringConfigurations(:)    

    call jsonfile%initialize()
    call jsonfile%load_file('data-witharray.json'); if (jsonfile%failed()) stop
    call jsonfile%json_file_get_root(jsonvalue)
    call jsoncore%get(jsonvalue,'Configuration',jsonvalue2)
    call jsoncore%get(jsonvalue2,'StringConfiguration',jsonvalue)
    call jsoncore%get(jsonvalue,'StringConfigurationItems',jsonvalue2)
    call jsoncore%info(jsonvalue2, n_children=n_children)
    do i=1,n_children
        call jsoncore%get_child(jsonvalue2, i, child, found=is_found)
        if (.not. is_found) print *,"not found"
        call jsoncore%get(child,"BitCodeHundreds",child2)
        call jsoncore%get(child2,j)
        print *,"BitCodeHundreds=",j
    end do
    print *,"n_children=",n_children
    call jsonfile%destroy()
end program