bit_set_8_routcos

Computational routine
eng

##
bit_set_8

### File content

    #include "scicos_block4.h"
    #include <math.h>

    void bit_set_8(scicos_block *block,int flag)
    {
      int n,m,i;
      char *opar;
      char *u,*y;
      opar=Getint8OparPtrs(block,1);
      u=Getint8InPortPtrs(block,1);
      y=Getint8OutPortPtrs(block,1);
      n=GetInPortCols(block,1);
      m=GetInPortRows(block,1);
      for(i=0;i<m*n;i++) *(y+i)=((*(u+i))|(*opar));
    }