wolffd@0: function K = set_params_kernel(K, name, val)
wolffd@0: % SET_PARAMS_KERNEL Accessor function for a field (table_kernel)
wolffd@0: % K = set_params_kernel(K, name, val)
wolffd@0: %
wolffd@0: % e.g., K = set_params_kernel(K, 'table', rand(2,3,2)) for a kernel on 3 nodes with 2,3,2 values each
wolffd@0: 
wolffd@0: % We should check if the arguments are valid...
wolffd@0: 
wolffd@0: switch name
wolffd@0:  case 'table', K.table = val;
wolffd@0:  otherwise,
wolffd@0:   error(['invalid field name ' name]);
wolffd@0: end