function crcTestNSTB(fid,headLen,bodyLen,tailLen);
%---------------------------------------------------------
% do CRC test for NSTB message
% Ju-Yong Do,  Jan 22, 2009
%---------------------------------------------------------
% input  : NSTB file indicator
% output : (error message if fails in CRC test)
% 01/23/09: move CRC test right before CRC bytes
%=========================================================
%=========================================================
% CRC test for sanity check
global option
if option.crc==0, 
    fseek(fid, tailLen, 'cof');
    return; 
end;

%read entire message
fseek(fid, -headLen-bodyLen, 'cof');    %rewind to head of message
message     = fread(fid, double(headLen)+double(bodyLen)+double(tailLen), 'ubit8=>ubit16');

%do CRC check
if crcTest(message)~=0, error('Failed in CRC Test.'); end;

return
%=========================================================
%=========================================================