*
* $Id$
*
* $Log$
* Revision 1.1  1996/02/15 17:50:53  mclareni
* Initial revision
*
*
#ifndef CERNLIB_KERNALT_Q_SHIFT_INC
#define CERNLIB_KERNALT_Q_SHIFT_INC
*
*
* q_shift.inc
*
      ISHFTL (IZW,NZB) = ISHFT (IZW,  NZB)
      ISHFTR (IZW,NZB) = ishft (IZW, -NZB)

#endif
