function A=subsasgn(A,S,B)
%SUBSASGN  subscripted assignment

%   Copyright (c) 1997-2000 by The MathWorks, Inc.
%   $Revision: 1.7 $  $Date: 2000/06/17 15:19:45 $

d=rgstoredata(A);

if isempty(d)
    d=rgstoredata(A,'','initialize');
end

d=subsasgn(d,S,B);

rgstoredata(A,d, 'set');
