json_info Subroutine

public subroutine json_info(p, var_type, n_children, name)

Arguments

Type IntentOptional AttributesName
type(json_value), , pointer:: p
integer(kind=IK), intent(out), optional :: var_type

variable type

integer(kind=IK), intent(out), optional :: n_children

number of children

character(kind=CK,len=:), intent(out), optional allocatable:: name

variable name

Description

Returns information about a json_value.

Calls

proc~~json_info~~CallsGraph proc~json_info json_info proc~json_count json_count proc~json_info->proc~json_count
Help

Called By

proc~~json_info~~CalledByGraph proc~json_info json_info proc~json_update_double json_update_double proc~json_update_double->proc~json_info proc~test_2 test_2 proc~test_2->proc~json_info interface~json_update json_update proc~test_2->interface~json_update proc~rename rename proc~rename->proc~json_info proc~rename->interface~json_update proc~json_file_variable_info json_file_variable_info proc~json_file_variable_info->proc~json_info proc~json_update_string json_update_string proc~json_update_string->proc~json_info proc~test_10 test_10 proc~test_10->proc~json_info proc~test_10->interface~json_update proc~json_update_integer json_update_integer proc~json_update_integer->proc~json_info proc~json_update_logical json_update_logical proc~json_update_logical->proc~json_info proc~wrap_json_update_double wrap_json_update_double proc~wrap_json_update_double->proc~json_update_double interface~json_update->proc~json_update_double interface~json_update->proc~json_update_string interface~json_update->proc~json_update_integer interface~json_update->proc~json_update_logical proc~json_file_update_integer json_file_update_integer proc~json_file_update_integer->interface~json_update proc~json_file_update_string json_file_update_string proc~json_file_update_string->interface~json_update proc~test_12 test_12 proc~test_12->interface~json_update proc~test_1 test_1 proc~test_1->interface~json_update proc~json_file_update_real json_file_update_real proc~json_file_update_real->interface~json_update proc~json_file_update_logical json_file_update_logical proc~json_file_update_logical->interface~json_update proc~wrap_json_file_update_integer wrap_json_file_update_integer proc~wrap_json_file_update_integer->proc~json_file_update_integer proc~json_file_update_string_name_ascii json_file_update_string_name_ascii proc~json_file_update_string_name_ascii->proc~json_file_update_string proc~wrap_json_file_update_string wrap_json_file_update_string proc~wrap_json_file_update_string->proc~json_file_update_string proc~json_file_update_string_val_ascii json_file_update_string_val_ascii proc~json_file_update_string_val_ascii->proc~json_file_update_string program~jf_test_12 jf_test_12 program~jf_test_12->proc~test_12 program~jf_test_1 jf_test_1 program~jf_test_1->proc~test_1 proc~wrap_json_file_update_real wrap_json_file_update_real proc~wrap_json_file_update_real->proc~json_file_update_real proc~wrap_json_file_update_logical wrap_json_file_update_logical proc~wrap_json_file_update_logical->proc~json_file_update_logical program~jf_test_2 jf_test_2 program~jf_test_2->proc~test_2 proc~wrap_json_file_variable_info wrap_json_file_variable_info proc~wrap_json_file_variable_info->proc~json_file_variable_info proc~json_update_string_name_ascii json_update_string_name_ascii proc~json_update_string_name_ascii->proc~json_update_string proc~wrap_json_update_string wrap_json_update_string proc~wrap_json_update_string->proc~json_update_string proc~json_update_string_val_ascii json_update_string_val_ascii proc~json_update_string_val_ascii->proc~json_update_string program~jf_test_10 jf_test_10 program~jf_test_10->proc~test_10 proc~wrap_json_update_integer wrap_json_update_integer proc~wrap_json_update_integer->proc~json_update_integer proc~wrap_json_update_logical wrap_json_update_logical proc~wrap_json_update_logical->proc~json_update_logical
Help

Source Code

    subroutine json_info(p,var_type,n_children,name)

    implicit none

    type(json_value),pointer         :: p
    integer(IK),intent(out),optional :: var_type   !! variable type
    integer(IK),intent(out),optional :: n_children !! number of children
    character(kind=CK,len=:),allocatable,intent(out),optional :: name !! variable name

    if (present(var_type))    var_type   = p%var_type
    if (present(n_children))  n_children = json_count(p)
    if (present(name))        name       = p%name

    end subroutine json_info