Computational routine
eng

shift_32_LA

File content

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

void shift_32_LA(scicos_block *block,int flag)
{
  SCSINT32_COP *u,*y; 
  int *ipar;
  int mu,nu,i;
  mu=GetInPortRows(block,1);
  nu=GetInPortCols(block,1);
  u=Getint32InPortPtrs(block,1);
  y=Getint32OutPortPtrs(block,1);
  ipar=GetIparPtrs(block);
  for (i=0;i<mu*nu;i++) y[i]=u[i]<<ipar[0];
}