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.


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


Source Code

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