1/* Left and right shift C routines, to compare to Fortran results. */ 2int c_lshift_ (int *x, int *y) { return (*x) << (*y); } 3int c_rshift_ (int *x, int *y) { return (*x) >> (*y); } 4