MINICERN/packlib/zebra/zebra/q_shift.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:46:52  mclareni
   6 * Zebra
   7 *
   8 *
   9 #ifndef CERNLIB_ZEBRA_Q_SHIFT_INC
  10 #define CERNLIB_ZEBRA_Q_SHIFT_INC
  11 *
  12 *
  13 * q_shift.inc
  14 *
  15 #if defined(CERNLIB_APOLLO)
  16       ISHFTL (IZW,NZB) = LSHFT (IZW, NZB)
  17       ISHFTR (IZW,NZB) = RSHFT (IZW, NZB)
  18
  19 #elif defined(CERNLIB_CDC)
  20       ISHFTL (IZW,NZB) = SHIFT (IZW,NZB) .AND. MASK(60-NZB)
  21       ISHFTR (IZW,NZB) = SHIFT (IZW.AND.MASK(60-NZB), 60-NZB)
  22
  23 #elif defined(CERNLIB_CRAY)
  24       ISHFTL (IZW,NZB) = SHIFTL (IZW, NZB)
  25       ISHFTR (IZW,NZB) = SHIFTR (IZW, NZB)
  26
  27 #elif (defined(CERNLIB_MSDOS))&&(defined(CERNLIB_QF_F2C))
  28 C--
  29 C--    Note: RSHIFT is arithmetic with F2C, it cannot be used
  30 C
  31        ISHFTL(IZW,NZB) = LSHIFT(IZW,NZB)
  32 C       ISHFTR(IZW,NZB) = RSHIFT(IZW,NZB)
  33 C       ISHFT(IZW,NZB)  = LSHIFT(IZW,NZB)
  34
  35 #elif defined(CERNLIB_QF_SIEM)
  36       ISHFTL (IZW,NZB) = SHFTL (IZW, NZB)
  37       ISHFTR (IZW,NZB) = SHFTR (IZW, NZB)
  38
  39 #elif defined(CERNLIB_LINUX)
  40       ISHFTL (IZW,NZB) = LSHIFT (IZW,NZB)
  41
  42 #elif (defined(CERNLIB_SUN))&&(!defined(CERNLIB_BUGLRSHFT))
  43       ISHFTL (IZW,NZB) = LSHIFT (IZW, NZB)
  44       ISHFTR (IZW,NZB) = lrshft (IZW, NZB)
  45 #elif (defined(CERNLIB_SUN))&&(defined(CERNLIB_BUGLRSHFT))
  46       ISHFTL (IZW,NZB) = LSHIFT (IZW, NZB)
  47       ISHFTR (IZW,NZB) =  ishft (IZW,-NZB)
  48
  49 #elif defined(CERNLIB_QMVDS)
  50 C   ISHFTL / ISHFTR  are intrinsics of vdS
  51
  52 #elif 1
  53       ISHFTL (IZW,NZB) = ISHFT (IZW, NZB)
  54       ISHFTR (IZW,NZB) = ISHFT (IZW,-NZB)
  55
  56 #endif
  57
  58 #endif