destroy_hash Subroutine

private subroutine destroy_hash(me)

Destroy the hash table if it exists.

Type Bound

json_file

Arguments

Type IntentOptional Attributes Name
class(json_file), intent(inout) :: me

Calls

proc~~destroy_hash~~CallsGraph proc~destroy_hash json_file%destroy_hash proc~hash_table_destroy json_hash_table%hash_table_destroy proc~destroy_hash->proc~hash_table_destroy none~destroy~4 json_core%destroy proc~hash_table_destroy->none~destroy~4 proc~destroy_json_core json_core%destroy_json_core none~destroy~4->proc~destroy_json_core proc~json_value_destroy json_core%json_value_destroy none~destroy~4->proc~json_value_destroy proc~json_value_destroy->none~destroy~4 proc~destroy_json_data destroy_json_data proc~json_value_destroy->proc~destroy_json_data

Called by

proc~~destroy_hash~~CalledByGraph proc~destroy_hash json_file%destroy_hash proc~json_file_destroy json_file%json_file_destroy proc~json_file_destroy->proc~destroy_hash proc~assign_string_to_json_file json_file%assign_string_to_json_file proc~assign_string_to_json_file->proc~json_file_destroy none~deserialize json_file%deserialize proc~assign_string_to_json_file->none~deserialize proc~finalize_json_file finalize_json_file proc~finalize_json_file->proc~json_file_destroy proc~json_file_add json_file%json_file_add proc~json_file_add->proc~json_file_destroy proc~json_file_load json_file%json_file_load proc~json_file_load->proc~json_file_destroy proc~json_file_load_from_string json_file%json_file_load_from_string proc~json_file_load_from_string->proc~json_file_destroy none~deserialize->proc~json_file_load_from_string proc~wrap_json_file_load_from_string json_file%wrap_json_file_load_from_string none~deserialize->proc~wrap_json_file_load_from_string proc~wrap_assign_string_to_json_file json_file%wrap_assign_string_to_json_file proc~wrap_assign_string_to_json_file->proc~assign_string_to_json_file proc~initialize_json_file_from_string initialize_json_file_from_string proc~initialize_json_file_from_string->none~deserialize proc~initialize_json_file_from_string_v2 initialize_json_file_from_string_v2 proc~initialize_json_file_from_string_v2->none~deserialize proc~wrap_json_file_load_from_string->none~deserialize interface~json_file json_file interface~json_file->proc~initialize_json_file_from_string interface~json_file->proc~initialize_json_file_from_string_v2 proc~wrap_initialize_json_file_from_string wrap_initialize_json_file_from_string interface~json_file->proc~wrap_initialize_json_file_from_string proc~wrap_initialize_json_file_from_string_v2 wrap_initialize_json_file_from_string_v2 interface~json_file->proc~wrap_initialize_json_file_from_string_v2 proc~wrap_initialize_json_file_from_string->proc~initialize_json_file_from_string proc~wrap_initialize_json_file_from_string_v2->proc~initialize_json_file_from_string_v2

Source Code

    subroutine destroy_hash(me)

    class(json_file), intent(inout) :: me

    call me%hash%destroy()
    me%hash_enabled = .false.

    end subroutine destroy_hash