loon: lshift.c Source File

00001 //-----------------------------------------------------------------------------
00002 //
00003 // lshift_ not implemented in gfortran intrinsic lib until gcc 4.2
00004 //
00005 //-----------------------------------------------------------------------------
00006 
00007 unsigned int lshift_(unsigned int *arg, int *len)
00008 {
00009    return(*arg << *len);
00010 }