destroy_json_data Subroutine

private pure subroutine destroy_json_data(d)

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

Arguments

Type IntentOptional Attributes Name
type(json_value), intent(inout) :: d

Source Code

    pure 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