Computational routine
eng

shift_u32_RA

File content

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

void shift_u32_RA(scicos_block *block,int flag)
{
  SCSUINT32_COP *u,*y; 
  int *ipar;
  int mu,nu,i;
  mu=GetInPortRows(block,1);
  nu=GetInPortCols(block,1);
  u=Getuint32InPortPtrs(block,1);
  y=Getuint32OutPortPtrs(block,1);
  ipar=GetIparPtrs(block);
  for (i=0;i<mu*nu;i++) y[i]=u[i]>>-ipar[0];
}