mkNIMSinfo.m

function [NIMSinfo] = mkNIMSinfo(SurveyName,DataFiles)

%  New version of makeNIMSinfo; only used for
%   display of what has been done (and bad record segments)
%    in ArrayManager 

Survey = startUpSurvey(SurveyName);
nFiles = length(DataFiles);

for k = 1:nFiles
%   find root
  root = DataFiles{k}.Name;
%   check for decimated file (No decimated file now)
  DBN = 0;
%   check for bin file
  binFile = [Survey.data root '.bin']; 
  BIN = exist(binFile,'file') == 2;
%   check for SP file
  spFileRun = [Survey.SP root '.sp']; 
  spFileSite = [Survey.SP root(1:end-1) '.sp']; 
  SP = (exist(spFileSite,'file') == 2 | exist(spFileRun,'file') == 2);
%   check for FC file
  fcFile = [Survey.FC root '.f5']; 
  FC = exist(fcFile,'file') == 2;
%   check for BR file
  brFile = [Survey.BR root '.bad']; 
  BR = exist(brFile,'file') == 2;
%  sep 28 : added reading of marked bad segments, to add to
%   data availability plot

if BR
     [T12] = rdBadRec(brFile);
  else
     [T12] = [];
  end

  NIMSinfo{k} = struct('root',root,'DBN',DBN, ...
	'BIN',BIN,'FC',FC,'SP',SP,'BR',BR,'BRtimes',T12);
end
%save NIMSinfo.mat NIMSinfo