0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017 function G = gf_set_grid( G, dim, grid, name, unit )
0018
0019 if atmlab('STRICT_ASSERT')
0020 rqre_nargin( 3, nargin );
0021 rqre_datatype( G, @isstruct );
0022 rqre_alltypes( dim, {@istensor0,@iswhole} );
0023 rqre_in_range( dim, 1 );
0024 rqre_datatype( grid, {@isempty,@istensor1} );
0025 if nargin>=4
0026 rqre_datatype( name, {@isempty,@ischar} );
0027 if nargin>=5
0028 rqre_datatype( unit, {@isempty,@ischar} );
0029 end
0030 end
0031 end
0032
0033
0034 bname = sprintf( 'GRID%d', dim );
0035
0036
0037 for i = 1 : length(G)
0038
0039 G(i).(bname) = grid;
0040
0041 if nargin >= 4
0042 G(i).([bname,'_NAME']) = name;
0043 if nargin >= 5
0044 G(i).([bname,'_UNIT']) = unit;
0045 end
0046 end
0047 end
0048
0049