MINICERN/packlib/zebra/zebra/q_jbyt.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1  1996/04/18 16:15:07  mclareni
   6 * Incorporate changes from J.Zoll for version 3.77
   7 *
   8 *
   9 *
  10 #ifndef CERNLIB_ZEBRA_Q_JBYT_INC
  11 #define CERNLIB_ZEBRA_Q_JBYT_INC
  12 *
  13 *
  14 * q_jbyt.inc
  15 *
  16 #if defined(CERNLIB_ALLIANT)
  17       JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB)
  18
  19 #elif defined(CERNLIB_APOLLO)
  20       JBYT (IZW,IZP,NZB)= RSHFT (LSHFT(IZW,33-IZP-NZB), 32-NZB)
  21
  22 #elif defined(CERNLIB_CDC)
  23       JBYT (IZW,IZP,NZB) = SHIFT(IZW,61-IZP) .AND. .NOT.MASK(60-NZB)
  24
  25 #elif defined(CERNLIB_CRAY)
  26       JBYT (IZW,IZP,NZB) = SHIFTR(IZW,IZP-1) .AND. MASK(128-NZB)
  27
  28 #elif (defined(CERNLIB_CONVEX))&&(!defined(CERNLIB_DOUBLE))
  29       JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB)
  30
  31 #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_DOUBLE))
  32       JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB)
  33
  34 #elif defined(CERNLIB_MSDOS)
  35
  36 #if defined(CERNLIB_QF_NDP)
  37       JBYT (IZZW,IZZP,NZZB) = IBITS (IZZW,IZZP-1,NZZB)
  38 #elif defined(CERNLIB_QF_F2C)
  39       JBYT (IZW,IZP,NZB) =  ISHFTR(LSHIFT(IZW,33-IZP-NZB),32-NZB)
  40 #endif
  41
  42 #elif defined(CERNLIB_HPUX)
  43       JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB)
  44
  45 #elif defined(CERNLIB_QF_SIEM)
  46       JBYT (IZW,IZP,NZB)= SHFTR (SHFTL(IZW,33-IZP-NZB), 32-NZB)
  47
  48 #elif defined(CERNLIB_LINUX)
  49       JBYT(IZW,IZP,NZB) = ISHFTR(LSHIFT(IZW,33-IZP-NZB),32-NZB)
  50
  51 #elif defined(CERNLIB_OS9)
  52       JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB)
  53
  54 #elif defined(CERNLIB_PDP)
  55       JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB)
  56
  57 #elif (defined(CERNLIB_SUN))&&(!defined(CERNLIB_BUGLRSHFT))
  58       JBYT (IZW,IZP,NZB)= lrshft (LSHIFT(IZW,33-IZP-NZB),32-NZB)
  59
  60 #elif defined(CERNLIB_QMUNO)
  61       JBYT (IZW,IZP,NZB) = BITS (IZW,38-IZP-NZB,NZB)
  62
  63 #elif defined(CERNLIB_QMVDS)
  64
  65 #elif defined(CERNLIB_VAXVMS)
  66
  67 #elif 1
  68       JBYT (IZW,IZP,NZB) = ISHFT (ISHFT(IZW,33-IZP-NZB), -32+NZB)
  69
  70 #endif
  71
  72 #endif