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~3 json_core%destroy proc~json_file_destroy->none~destroy~3 proc~destroy_json_core json_core%destroy_json_core none~destroy~3->proc~destroy_json_core proc~json_value_destroy json_core%json_value_destroy none~destroy~3->proc~json_value_destroy proc~json_value_destroy->none~destroy~3 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