%
%  Name:   transdata
%
%  Usage:  transdata
%
%  Translates the datafiles in the selected folder into
%  the new DIAMOND data format
%
%  

%  Version SWD970823
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% This matlab source code was originally     %
% developed as part of "DIAMOND" at          %
% Los Alamos National Laboratory. It may     %
% be copied, modified, and distributed in    %
% any form, provided:                        %
%  a) This notice accompanies the files and  %
%     appears near the top of all source     %
%     code files.                            %
%  b) No payment or commercial services are  %
%     received in exchange for the code.     %
%                                            %
% Original copyright is reserved by the      %
% Regents of the University of California,   %
% in addition to Scott W. Doebling, Phillip  %
% J. Cornwell, Erik G. Straser, and Charles  %
% R. Farrar.                                 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


global DATA

disp('Source Directory...')

[filename,pathsrc,error]=loadfile(0,'c:\');

disp('Dest. Directory...')

[filename,pathdest,error]=loadfile(0,pathsrc);

dirstruct = dir(pathsrc);

for i = 1:length(dirstruct),
   
   fprintf(1,'Processing File #%d of %d\n',i,length(dirstruct))

   file = dirstruct(i).name;
   
   if exist(file)~=7,
      clear global DATA
      loaddata2(pathsrc,file,1);
      if ~isempty('DATA'),
         savedata(pathdest,file,1);
      end
   end
end
