unsigned int lshift_(unsigned int *arg, int *len)
{
   return(*arg << *len);
}