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.

Arguments

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

Contents

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