finalize_json_file Subroutine

private subroutine finalize_json_file(me)

Finalizer for json_file class.

Just a wrapper for json_file_destroy.

Arguments

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

Calls

proc~~finalize_json_file~~CallsGraph proc~finalize_json_file finalize_json_file proc~json_file_destroy json_file%json_file_destroy proc~finalize_json_file->proc~json_file_destroy none~destroy~4 json_core%destroy proc~json_file_destroy->none~destroy~4 proc~destroy_hash json_file%destroy_hash proc~json_file_destroy->proc~destroy_hash 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~hash_table_destroy json_hash_table%hash_table_destroy proc~destroy_hash->proc~hash_table_destroy proc~hash_table_destroy->none~destroy~4 proc~json_value_destroy->none~destroy~4 proc~destroy_json_data destroy_json_data proc~json_value_destroy->proc~destroy_json_data

Source Code

    subroutine finalize_json_file(me)

    implicit none

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

    call me%destroy(destroy_core=.true.)

    end subroutine finalize_json_file