%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% 	conv1.m 
%	jmw 
%	9/21/93
% 
%	script to convert from esps to matlab
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
disp(' ');
disp('SCRIPT: conv1.m ***************************************************');

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

cwd=pwd;

[fname pathname]=uigetfile('*.dat','Load input file(ASCII)');
   
S=sprintf('cd %s',cwd);
eval(S);

if fname ~= 0
   S=sprintf('Loading data .....');
   disp(S);
   S=sprintf('load %s%s',pathname,fname);
   eval(S);
   
   o_fname=fname;
   o_pname=pathname;
   name=basename(fname);
   
else
   fname=o_fname;
   pathname=o_pname;
end

% If an input file is not loaded ( fname ), return to main menu
if exist('fname') ~= 1 | length(fname) == 0
   disp('Input file is not loaded. Please load an input file first.');
   return;
end

% save as matlab format
s=sprintf('save temp/%s.mat %s', name, name);
disp('saving in matlab format ...');
eval(s);

% clear signal from workspace
s=sprintf('clear %s', name);
eval(s);


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% clean up time

clear s