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 json_file_module::finalize_json_file proc~json_file_destroy json_file_module::json_file%json_file_destroy proc~finalize_json_file->proc~json_file_destroy none~destroy json_value_module::json_core%destroy proc~json_file_destroy->none~destroy proc~destroy_json_core json_value_module::json_core%destroy_json_core none~destroy->proc~destroy_json_core proc~json_value_destroy json_value_module::json_core%json_value_destroy none~destroy->proc~json_value_destroy proc~json_value_destroy->none~destroy proc~destroy_json_data json_value_module::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