function []=save_results(head,fname,results,params);
% MATLAB HELP:
%
% function []=save_results(fname,results,params);
%
% a function to save the results of a kernel calculation
%
% aaron birch, may 21, 2002


name=[head 'N' num2str(params.NMODES) 'delta' num2str(params.delta,3) 'CUT' num2str(params.CUT) ];
I=find(name=='.');for (i=1:length(I)),name(I(i))='p';end;
%% find out if something by that name already exists
v=1;
while (fopen([name 'v' num2str(v) '.mat'])~=-1)
 v=v+1;
end;
name=[name 'v' num2str(v)];


eval(['save ' name '  params results ']);

eval(['!cp ' fname ' ' name 'INPUT' ]);