flagTsys

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

  function flag = flagTsys(tsysVals, flagParams)


   flags on the calculated noise diode temperature and the actual system
   temperature

   sjcm

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

0001 function [noiseflag tsysflag] = flagTsys(tsysVals, flagParams)
0002 
0003 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0004 %
0005 %  function flag = flagTsys(tsysVals, flagParams)
0006 %
0007 %
0008 %   flags on the calculated noise diode temperature and the actual system
0009 %   temperature
0010 %
0011 %   sjcm
0012 %
0013 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0014 
0015 if(isfield(tsysVals.tnoise, 'src'))
0016   noiseflagsky = tsysVals.tnoise.sky>flagParams(1) | tsysVals.tnoise.sky < ...
0017       flagParams(2);
0018   noiseflagsrc = tsysVals.tnoise.src>flagParams(1) | tsysVals.tnoise.src < flagParams(2);
0019   noiseflag = noiseflagsrc | noiseflagsky;
0020 else
0021   noiseflag = tsysVals.tnoise > flagParams(1) | tsysVals.tnoise < ...
0022       flagParams(2);
0023 end
0024 
0025 if(isfield(tsysVals, 'val'))
0026   tsysflag = tsysVals.val > flagParams(3) | tsysVals.val < flagParams(4) | isnan(tsysVals.val);
0027 else
0028   tsysflag = zeros(size(noiseflag));
0029 end
0030 
0031 return;