destroy_json_data Subroutine

  1. json_module.F90
  2. json_module
  3. destroy_json_data

private subroutine destroy_json_data(d)

Arguments

Type IntentOptional AttributesName
type(json_value), intent(inout) :: d

Description

Destroy the data within a json_value, and rest type to json_unknown.

Called By

proc~~destroy_json_data~~CalledByGraph proc~destroy_json_data destroy_json_data proc~to_array to_array proc~to_array->proc~destroy_json_data proc~to_logical to_logical proc~to_logical->proc~destroy_json_data proc~json_value_destroy json_value_destroy proc~json_value_destroy->proc~destroy_json_data proc~json_value_destroy->proc~json_value_destroy proc~to_object to_object proc~to_object->proc~destroy_json_data proc~to_string to_string proc~to_string->proc~destroy_json_data proc~to_double to_double proc~to_double->proc~destroy_json_data proc~to_null to_null proc~to_null->proc~destroy_json_data proc~to_integer to_integer proc~to_integer->proc~destroy_json_data proc~json_value_create_array json_value_create_array proc~json_value_create_array->proc~to_array proc~parse_value parse_value proc~parse_value->proc~to_array proc~parse_value->proc~to_logical proc~parse_value->proc~to_object proc~parse_value->proc~to_string proc~parse_value->proc~to_null proc~parse_object parse_object proc~parse_value->proc~parse_object proc~parse_array parse_array proc~parse_value->proc~parse_array proc~parse_number parse_number proc~parse_value->proc~parse_number proc~json_value_add_double_vec json_value_add_double_vec proc~json_value_add_double_vec->proc~to_array interface~json_add json_add proc~json_value_add_double_vec->interface~json_add proc~json_value_add_logical_vec json_value_add_logical_vec proc~json_value_add_logical_vec->proc~to_array proc~json_value_add_logical_vec->interface~json_add proc~json_value_add_integer_vec json_value_add_integer_vec proc~json_value_add_integer_vec->proc~to_array proc~json_value_add_integer_vec->interface~json_add proc~json_value_add_string_vec json_value_add_string_vec proc~json_value_add_string_vec->proc~to_array proc~json_value_add_string_vec->interface~json_add proc~wrap_json_value_create_array wrap_json_value_create_array proc~wrap_json_value_create_array->proc~json_value_create_array interface~json_create_array json_create_array interface~json_create_array->proc~json_value_create_array proc~test_7 test_7 proc~test_7->interface~json_create_array proc~test_7->interface~json_add interface~json_remove json_remove proc~test_7->interface~json_remove interface~json_destroy json_destroy proc~test_7->interface~json_destroy interface~json_create_object json_create_object proc~test_7->interface~json_create_object proc~test_2 test_2 proc~test_2->interface~json_create_array proc~test_2->interface~json_add proc~add_variables_to_input add_variables_to_input proc~test_2->proc~add_variables_to_input interface~json_update json_update proc~test_2->interface~json_update proc~test_2->interface~json_destroy proc~test_2->interface~json_create_object program~jf_test_7 jf_test_7 program~jf_test_7->proc~test_7 program~jf_test_2 jf_test_2 program~jf_test_2->proc~test_2 proc~json_parse_string json_parse_string proc~json_parse_string->proc~parse_value proc~json_parse_file json_parse_file proc~json_parse_file->proc~parse_value proc~parse_object->proc~parse_value proc~parse_object->proc~parse_object proc~parse_object->interface~json_add proc~parse_object->interface~json_destroy proc~parse_array->proc~parse_value proc~parse_array->interface~json_add proc~parse_array->interface~json_destroy proc~wrap_json_parse_string wrap_json_parse_string proc~wrap_json_parse_string->proc~json_parse_string interface~json_parse json_parse interface~json_parse->proc~json_parse_string interface~json_parse->proc~json_parse_file proc~test_14 test_14 proc~test_14->interface~json_parse proc~test_14->interface~json_destroy proc~test_8 test_8 proc~test_8->interface~json_parse proc~test_8->interface~json_destroy proc~json_file_load json_file_load proc~json_file_load->interface~json_parse proc~json_file_load_from_string json_file_load_from_string proc~json_file_load_from_string->interface~json_parse program~jf_test_14 jf_test_14 program~jf_test_14->proc~test_14 program~jf_test_8 jf_test_8 program~jf_test_8->proc~test_8 proc~wrap_json_file_load_from_string wrap_json_file_load_from_string proc~wrap_json_file_load_from_string->proc~json_file_load_from_string proc~wrap_json_value_add_double_vec wrap_json_value_add_double_vec proc~wrap_json_value_add_double_vec->proc~json_value_add_double_vec interface~json_add->proc~json_value_add_double_vec interface~json_add->proc~json_value_add_logical_vec interface~json_add->proc~json_value_add_integer_vec interface~json_add->proc~json_value_add_string_vec proc~json_value_add_logical json_value_add_logical interface~json_add->proc~json_value_add_logical proc~json_value_add_double json_value_add_double interface~json_add->proc~json_value_add_double proc~json_value_add_integer json_value_add_integer interface~json_add->proc~json_value_add_integer proc~json_value_add_string json_value_add_string interface~json_add->proc~json_value_add_string proc~json_value_add_logical->proc~to_logical proc~json_value_add_logical->interface~json_add proc~json_update_integer json_update_integer proc~json_update_integer->proc~to_integer proc~json_update_integer->interface~json_add proc~json_value_add_double->proc~to_double proc~json_value_add_double->interface~json_add proc~test_12 test_12 proc~test_12->interface~json_add proc~test_12->interface~json_update proc~test_12->interface~json_create_object proc~add_variables_to_input->interface~json_add proc~add_variables_to_input->interface~json_create_object proc~json_value_add_integer->proc~to_integer proc~json_value_add_integer->interface~json_add proc~json_update_double json_update_double proc~json_update_double->proc~to_double proc~json_update_double->interface~json_add proc~json_update_logical json_update_logical proc~json_update_logical->proc~to_logical proc~json_update_logical->interface~json_add proc~json_update_string json_update_string proc~json_update_string->proc~to_string proc~json_update_string->interface~json_add proc~test_4 test_4 proc~test_4->interface~json_add proc~test_4->interface~json_destroy proc~test_4->interface~json_create_object proc~json_value_add_string->proc~to_string proc~json_value_add_string->interface~json_add proc~wrap_json_value_add_logical wrap_json_value_add_logical proc~wrap_json_value_add_logical->proc~json_value_add_logical proc~wrap_json_update_integer wrap_json_update_integer proc~wrap_json_update_integer->proc~json_update_integer interface~json_update->proc~json_update_integer interface~json_update->proc~json_update_double interface~json_update->proc~json_update_logical interface~json_update->proc~json_update_string proc~rename rename proc~rename->interface~json_update 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_1 test_1 proc~test_1->interface~json_update proc~test_1->interface~json_remove proc~test_10 test_10 proc~test_10->interface~json_update interface~json_create_logical json_create_logical proc~test_10->interface~json_create_logical interface~json_remove_if_present json_remove_if_present proc~test_10->interface~json_remove_if_present proc~test_10->interface~json_destroy proc~test_10->interface~json_create_object interface~json_create_string json_create_string proc~test_10->interface~json_create_string interface~json_create_double json_create_double proc~test_10->interface~json_create_double interface~json_create_null json_create_null proc~test_10->interface~json_create_null interface~json_create_integer json_create_integer proc~test_10->interface~json_create_integer 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_1 jf_test_1 program~jf_test_1->proc~test_1 program~jf_test_10 jf_test_10 program~jf_test_10->proc~test_10 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 proc~wrap_json_value_add_double wrap_json_value_add_double proc~wrap_json_value_add_double->proc~json_value_add_double program~jf_test_12 jf_test_12 program~jf_test_12->proc~test_12 proc~wrap_json_value_add_integer wrap_json_value_add_integer proc~wrap_json_value_add_integer->proc~json_value_add_integer proc~wrap_json_update_double wrap_json_update_double proc~wrap_json_update_double->proc~json_update_double proc~wrap_json_update_logical wrap_json_update_logical proc~wrap_json_update_logical->proc~json_update_logical 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_4 jf_test_4 program~jf_test_4->proc~test_4 proc~wrap_json_value_add_string wrap_json_value_add_string proc~wrap_json_value_add_string->proc~json_value_add_string proc~json_value_add_string_name_ascii json_value_add_string_name_ascii proc~json_value_add_string_name_ascii->proc~json_value_add_string proc~json_value_add_string_val_ascii json_value_add_string_val_ascii proc~json_value_add_string_val_ascii->proc~json_value_add_string proc~wrap_json_value_add_logical_vec wrap_json_value_add_logical_vec proc~wrap_json_value_add_logical_vec->proc~json_value_add_logical_vec proc~wrap_json_value_add_integer_vec wrap_json_value_add_integer_vec proc~wrap_json_value_add_integer_vec->proc~json_value_add_integer_vec proc~json_value_add_string_vec_name_ascii json_value_add_string_vec_name_ascii proc~json_value_add_string_vec_name_ascii->proc~json_value_add_string_vec proc~wrap_json_value_add_string_vec wrap_json_value_add_string_vec proc~wrap_json_value_add_string_vec->proc~json_value_add_string_vec proc~json_value_add_string_vec_val_ascii json_value_add_string_vec_val_ascii proc~json_value_add_string_vec_val_ascii->proc~json_value_add_string_vec proc~json_value_create_logical json_value_create_logical proc~json_value_create_logical->proc~to_logical proc~wrap_json_value_create_logical wrap_json_value_create_logical proc~wrap_json_value_create_logical->proc~json_value_create_logical interface~json_create_logical->proc~json_value_create_logical proc~json_file_destroy json_file_destroy proc~json_file_destroy->proc~json_value_destroy proc~json_value_remove json_value_remove proc~json_value_remove->proc~json_value_destroy interface~json_remove->proc~json_value_remove proc~json_value_remove_if_present json_value_remove_if_present proc~json_value_remove_if_present->interface~json_remove proc~wrap_json_value_remove_if_present wrap_json_value_remove_if_present proc~wrap_json_value_remove_if_present->proc~json_value_remove_if_present interface~json_remove_if_present->proc~json_value_remove_if_present interface~json_destroy->proc~json_value_destroy proc~json_value_create_object json_value_create_object proc~json_value_create_object->proc~to_object proc~wrap_json_value_create_object wrap_json_value_create_object proc~wrap_json_value_create_object->proc~json_value_create_object interface~json_create_object->proc~json_value_create_object proc~json_value_create_string json_value_create_string proc~json_value_create_string->proc~to_string proc~wrap_json_value_create_string wrap_json_value_create_string proc~wrap_json_value_create_string->proc~json_value_create_string interface~json_create_string->proc~json_value_create_string proc~json_value_create_double json_value_create_double proc~json_value_create_double->proc~to_double proc~parse_number->proc~to_double proc~parse_number->proc~to_integer proc~wrap_json_value_create_double wrap_json_value_create_double proc~wrap_json_value_create_double->proc~json_value_create_double interface~json_create_double->proc~json_value_create_double proc~json_value_create_null json_value_create_null proc~json_value_create_null->proc~to_null proc~wrap_json_value_create_null wrap_json_value_create_null proc~wrap_json_value_create_null->proc~json_value_create_null interface~json_create_null->proc~json_value_create_null proc~json_value_create_integer json_value_create_integer proc~json_value_create_integer->proc~to_integer proc~wrap_json_value_create_integer wrap_json_value_create_integer proc~wrap_json_value_create_integer->proc~json_value_create_integer interface~json_create_integer->proc~json_value_create_integer
Help

Source Code

    subroutine destroy_json_data(d)

    implicit none

    type(json_value),intent(inout) :: d

    d%var_type = json_unknown

    if (allocated(d%log_value)) deallocate(d%log_value)
    if (allocated(d%int_value)) deallocate(d%int_value)
    if (allocated(d%dbl_value)) deallocate(d%dbl_value)
    if (allocated(d%str_value)) deallocate(d%str_value)

    end subroutine destroy_json_data