function [results]=run_kernel(fname);
% MATLAB HELP:
%
% function []=run_calc_kernel(fname);
%
% the input is the name of a paramter file
%
% for a description of that file see codes.ps or codes.pdf
%
% aaron birch, may 21, 2002
 


[OK,params]=read_params(fname);


if (OK) %% if the read went ok

  %
  % load the solar model
  %
  [sm]=load_solar_model_pack(params.EXCLUDE_F,params.model_name);
  
 
  %
  % run the code
  %
  if (params.ONED)
    [kernel]=calc_int_kernel(sm,params);
    str='1d';
  else
    [kernel]=calc_kernel(sm,params);
    str='3d'
  end;
  


  %
  % save the results
  %
  save_results(str,fname,kernel,params);

else
    disp(' problem reading input file');
end;