time   calls  line
                  1 function s = substruct(varargin)
                  2 %SUBSTRUCT Create structure argument for SUBSREF or SUBSASGN.
                  3 %    S = SUBSTRUCT(TYPE1,SUBS1,TYPE2,SUBS2,...) creates a structure with 
                  4 %    the fields required by an overloaded SUBSREF or SUBSASGN method.
                  5 %    Each TYPE string must be one of '.', '()', or '{}'.  The  
                  6 %    corresponding SUBS argument must be either a field name (for 
                  7 %    the '.' type) or a cell array containing the index vectors (for 
                  8 %    the '()' or '{}' types).  The output S is a structure array
                  9 %    containing the fields:
                 10 %       type -- subscript types '.', '()', or '{}'
                 11 %       subs -- actual subscript values (field names or cell arrays
                 12 %               of index vectors)
                 13 %
                 14 %    For example, to call SUBSREF with parameters equivalent to the syntax
                 15 %       B = A(i,j).field
                 16 %    use
                 17 %       S = substruct('()',{i j},'.','field');
                 18 %       B = subsref(A,S);
                 19 %    Similarly,
                 20 %       subsref(A, substruct('()',{1:2, ':'}))  performs  A(1:2,:)
                 21 %       subsref(A, substruct('{}',{1 2 3}))     performs  A{1,2,3}.
                 22 %
                 23 %    See also SUBSREF, SUBSASGN.
                 24 
                 25 %       Copyright 1984-2004 The MathWorks, Inc. 
                 26 %       $Revision: 1.7.4.2 $  $Date: 2010/08/23 23:07:54 $
                 27 
             2   28 ni = nargin; 
             2   29 if ni<2, 
                 30    error(message('MATLAB:substruct:nargin'))
             2   31 elseif rem(nargin,2), 
                 32    error(message('MATLAB:substruct:narginOdd'))
                 33 end
                 34 
             2   35 s = struct('type',varargin(1:2:end),'subs',varargin(2:2:end));