function h = subsasgn(h, S, input)
%SUBSASGN  Overload

%   Author(s): Rong Chen
%   Copyright 1986-2003 The MathWorks, Inc. 
%   $Revision: 1.1.6.1 $  $Date: 2004/12/26 21:35:20 $

if length(S)>= 1
    if strcmp(S(1).type,'.') && ischar(S(1).subs)
        if nargout>0
            varargout = cell(1,nargout);
            varargout{:} = builtin('subsasgn',h,S,input);
        else
            builtin('subsasgn',h,S,input);
        end
    else
        error('grammer not supported')
        return
    end
else
    error('grammer not supported')
    return
end