wolffd@0: function val = get_params(pot, name)
wolffd@0: % GET_PARAMS Accessor function for a field (dpot)
wolffd@0: % val = get_params(pot, name)
wolffd@0: %
wolffd@0: % e.g., get_params(pot, 'table') or 'domain'
wolffd@0: 
wolffd@0: switch name
wolffd@0:  case 'table', val = pot.T;
wolffd@0:  case 'domain', val = pot.domain;
wolffd@0:  otherwise,
wolffd@0:   error(['invalid field name ' name]);
wolffd@0: end
wolffd@0: