function [stat,post] = blkrelop(path,prop,bstr,bint,bflt,parent,name)
%BLKRELOP This block defines any of the six relational functions comparators.
%
% See also BLKLOGIC.

% Initial coding by A S Bozin, 6-12-97
% Copyright 1997-2000 The MathWorks, Inc.
% $Revision: 1.5 $ $Date: 2000/06/14 16:10:37 $

   stat = 0;			   		   % Error flag
   nInputs = bint(5);
   nOutputs = bint(6);
   indInt = bint(18)+1;
   indInt = bint(indInt)+indInt;		   % Skip icon data
   operCode = bint(indInt);
   %
   % Build mux and demux if necessary
   %
   channels = [nOutputs nOutputs];
   [post,rect] = blkio('port',channels,nOutputs,prop,path);
   %
   % Relational operator block
   %
   bh = add_block('built-in/RelationalOperator',path,...
		  'ForegroundColor',prop.fgColor,...
		  'BackgroundColor',prop.bgColor,...
		  'Orientation',prop.orientation,...
		  'DropShadow',prop.border,...
		  'Position',rect,...
		  'Operator',mapcode(operCode));
   %
   % Connect the current block with the mux and demux blocks (if any)
   %
   blkio('line',channels,nOutputs,post,parent,name);
   return					   % Last card of BLKRELOP

function opstr = mapcode(opnum)
%MAPCODE
%

   str = {'~=';'==';'<';'<=';'>';'>='};
   opstr = str{opnum};
   return					   % Last card of MAPCODE
