%
% SAVEVAR is a m-file which save plotvariables

%    Author:  Ole Barup Sorensen, Rapid Data Ltd 

%    Copyright (c) 1989-94 by Rapid Data Ltd
%    Revision 10:09  07/02/94

[f_name,f_path]=uiputfile('*.mat');
if f_name ~= 0,
  if an_type == 1,
    Mag = mmm0; Pha = ddd;
    eval(['save ',f_path,f_name,' Mag Pha w_range']) 
    clear Mag Pha
  elseif an_type == 2,
    if ip == 2 
      mmm = md1; ddd = pd1;        
    elseif ip ==3
      mmm = [mmm md1]; ddd = [ddd pd1]; 
    end
    eval(['save ',f_path,f_name,' mmm ddd']) 
  elseif an_type == 3,
    eval(['save ',f_path,f_name,' mmm ddd']) 
  elseif an_type == 4,
    eval(['save ',f_path,f_name,' mmm ddd']) 
  elseif an_type == 5,
    eval(['save ',f_path,f_name,' mmm']) 
  elseif an_type == 6,
    eval(['save ',f_path,f_name,' mmm0 t_range']) 
  elseif an_type == 7,
    eval(['save ',f_path,f_name,' mmm0 t_range']) 
  end
end