eshift
int ecmp(), enormlz(), eshift();
i = eshift( s, j );
lost = eshift( ai, k ); /* shift the smaller number down */
(void )eshift( yy, -5 );
eshift( yy, -1 );
(void )eshift( yy, -8 );
(void )eshift( x, 4 );
(void )eshift( x, 5 );
(void )eshift( x, 7 );
(void )eshift( x, 8 );
(void )eshift( xi, k );
eshift (xi, j);
eshift( xi, k );
(void )eshift( xi, k );
eshift (xi, j);
eshift( xi, k );