function set_param_value(pname,value)
  global M_
  
  i = strmatch(pname,M_.param_names,'exact');
  
  if isempty(i)
    error(['Parameter name ' pname ' doesn''t exist'])
  end
  
  M_.params(i) = value;
  assignin('base',pname,value);