Computational routine
eng

shift_16_RA

File content

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

void shift_16_RA(scicos_block *block,int flag)
{
  SCSINT16_COP *u,*y; 
  int *ipar;
  int mu,nu,i;
  mu=GetInPortRows(block,1);
  nu=GetInPortCols(block,1);
  u=Getint16InPortPtrs(block,1);
  y=Getint16OutPortPtrs(block,1);
  ipar=GetIparPtrs(block);
  for (i=0;i<mu*nu;i++) y[i]=u[i]>>-ipar[0];
}