function B=subsref(A,S)
%SUBSREF  subscripted reference

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


d = rgstoredata(A);

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

B=subsref(d,S);


