fold_compile

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  function r = flagRFI_compile()

   25-Jan-2012 (MAS):  Modified for use with the automated RFI tuning.

   18-Nov-2011 (MAS): Created.

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

0001 function r = fold_compile(basedir,foldfileC,suffix)
0002 
0003 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0004 %  function r = flagRFI_compile()
0005 %
0006 %   25-Jan-2012 (MAS):  Modified for use with the automated RFI tuning.
0007 %
0008 %   18-Nov-2011 (MAS): Created.
0009 %
0010 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0011 
0012 if nargin < 3
0013     suffix = '';
0014 else
0015     suffix = ['_' suffix];
0016 end
0017 
0018 
0019 nTimes = length(foldfileC);
0020 
0021 
0022 s_A = zeros(2,100,40,150);
0023 s_B = zeros(2,500);
0024 l_A = zeros(2,100,100,100);
0025 l_B = zeros(2,100,200);
0026 
0027 dataUtc = [];
0028 
0029 falseNum = 0;
0030 
0031 
0032 for k=1:nTimes
0033 
0034     foldFile = open(foldfileC{k});
0035 
0036     s_A = s_A + foldFile.s_A;
0037     s_B = s_B + foldFile.s_B;
0038     l_A = l_A + foldFile.l_A;
0039     l_B = l_B + foldFile.l_B;
0040     dataUtc = cat(1,dataUtc,foldFile.dataUtc);
0041 
0042     falseNum = falseNum + foldFile.falseNum;
0043 
0044 end
0045 
0046 
0047 outFile = [basedir 'fold_flag_results' suffix '.mat'];
0048 
0049 save(outFile, 's_A', 's_B', 'l_A', 'l_B', 'falseNum', 'dataUtc');
0050 
0051 r = 1;
0052 
0053 
0054 end