castByteQC.m

function [tabOut] = castByteQC( code, tabIn )
%
% Routine filling an array with 'code' of type byte
%
% QC code are of type Byte in the NetCdf File
% Tab storing th QC code must be of type Byte.
%
% $Id$


 tabOut = uint8(code) * uint8( ones(size(tabIn) ));
 
end