archivepath

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 function [dir,fn]=archivepath(field,rn,list)

 the filename and path of the .mat file stored in the /data

 field - field name
 rn   - reduction number
 list - single cell element output of get_tracks

 sjcm
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

0001 function [dir,fn]=archivepath(field,rn,list)
0002 
0003 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0004 % function [dir,fn]=archivepath(field,rn,list)
0005 %
0006 % the filename and path of the .mat file stored in the /data
0007 %
0008 % field - field name
0009 % rn   - reduction number
0010 % list - single cell element output of get_tracks
0011 %
0012 % sjcm
0013 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0014 
0015 if length(list{3})>3
0016   if ~strcmp('sch',list{3}(end-3:end))
0017     list{3}=[list{3} '.sch'];
0018   end
0019 else
0020   list{3}=[list{3} '.sch'];
0021 end
0022 
0023 dir=sprintf('/mnt/data/cbass/reduc/%s/r%u',field,rn);
0024 fn=sprintf('%s_%s',list{3}(1:end-4),list{4});
0025 
0026 return;
0027 
0028