assign_json_file Subroutine

private subroutine assign_json_file(me, f)

Assignment operator for json_core = json_core. This will duplicate the json_core and also perform a deep copy of the json_value data structure.

Type Bound

json_file

Arguments

Type IntentOptional Attributes Name
class(json_file), intent(out) :: me
type(json_file), intent(in) :: f

Calls

proc~~assign_json_file~~CallsGraph proc~assign_json_file json_file%assign_json_file proc~json_clone json_core%json_clone proc~assign_json_file->proc~json_clone proc~json_value_clone_func json_core%json_value_clone_func proc~json_clone->proc~json_value_clone_func proc~json_value_clone_func->proc~json_value_clone_func

Source Code

    subroutine assign_json_file(me,f)

    implicit none

    class(json_file),intent(out) :: me
    type(json_file),intent(in)   :: f

    me%core = f%core ! no pointers here so OK to copy
    call me%core%clone(f%p,me%p)

    end subroutine assign_json_file