initialize_json_file_v2 Function

private function initialize_json_file_v2(json_value_object, json_core_object) result(file_object)

Cast a json_value pointer and a json_core object as a json_file object.

Arguments

Type IntentOptional Attributes Name
type(json_value), intent(in), pointer :: json_value_object
type(json_core), intent(in) :: json_core_object

Return Value type(json_file)


Called by

proc~~initialize_json_file_v2~~CalledByGraph proc~initialize_json_file_v2 initialize_json_file_v2 interface~json_file json_file interface~json_file->proc~initialize_json_file_v2

Source Code

    function initialize_json_file_v2(json_value_object,json_core_object) &
                                        result(file_object)

    implicit none

    type(json_file)                     :: file_object
    type(json_value),pointer,intent(in) :: json_value_object
    type(json_core),intent(in)          :: json_core_object

    file_object%p    => json_value_object
    file_object%core = json_core_object

    end function initialize_json_file_v2