Warning, /include/zebra/q_jbyt.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.2 2006/09/15 09:35:33 mclareni
0006 * Submitted mods for gcc4/gfortran and MacOSX, corrected to work also on slc4 with gcc3.4 and 4.1
0007 *
0008 * Revision 1.1 1996/04/18 16:15:07 mclareni
0009 * Incorporate changes from J.Zoll for version 3.77
0010 *
0011 *
0012 *
0013 #ifndef CERNLIB_ZEBRA_Q_JBYT_INC
0014 #define CERNLIB_ZEBRA_Q_JBYT_INC
0015 *
0016 *
0017 * q_jbyt.inc
0018 *
0019 #if defined(CERNLIB_ALLIANT)
0020 JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB)
0021
0022 #elif defined(CERNLIB_APOLLO)
0023 JBYT (IZW,IZP,NZB)= RSHFT (LSHFT(IZW,33-IZP-NZB), 32-NZB)
0024
0025 #elif defined(CERNLIB_CDC)
0026 JBYT (IZW,IZP,NZB) = SHIFT(IZW,61-IZP) .AND. .NOT.MASK(60-NZB)
0027
0028 #elif defined(CERNLIB_CRAY)
0029 JBYT (IZW,IZP,NZB) = SHIFTR(IZW,IZP-1) .AND. MASK(128-NZB)
0030
0031 #elif (defined(CERNLIB_CONVEX))&&(!defined(CERNLIB_DOUBLE))
0032 JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB)
0033
0034 #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_DOUBLE))
0035 JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB)
0036
0037 #elif defined(CERNLIB_MSDOS)
0038
0039 #if defined(CERNLIB_QF_NDP)
0040 JBYT (IZZW,IZZP,NZZB) = IBITS (IZZW,IZZP-1,NZZB)
0041 #elif defined(CERNLIB_QF_F2C) && (!defined(CERNLIB_GFORTRAN))
0042 JBYT (IZW,IZP,NZB) = ISHFTR(LSHIFT(IZW,33-IZP-NZB),32-NZB)
0043 #endif
0044
0045 #elif defined(CERNLIB_HPUX)
0046 JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB)
0047
0048 #elif defined(CERNLIB_QF_SIEM)
0049 JBYT (IZW,IZP,NZB)= SHFTR (SHFTL(IZW,33-IZP-NZB), 32-NZB)
0050
0051 #elif defined(CERNLIB_LINUX)
0052 JBYT(IZW,IZP,NZB) = ISHFTR(LSHIFT(IZW,33-IZP-NZB),32-NZB)
0053
0054 #elif defined(CERNLIB_OS9)
0055 JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB)
0056
0057 #elif defined(CERNLIB_PDP)
0058 JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB)
0059
0060 #elif (defined(CERNLIB_SUN))&&(!defined(CERNLIB_BUGLRSHFT))
0061 JBYT (IZW,IZP,NZB)= lrshft (LSHIFT(IZW,33-IZP-NZB),32-NZB)
0062
0063 #elif defined(CERNLIB_QMUNO)
0064 JBYT (IZW,IZP,NZB) = BITS (IZW,38-IZP-NZB,NZB)
0065
0066 #elif defined(CERNLIB_QMVDS)
0067
0068 #elif defined(CERNLIB_VAXVMS)
0069
0070 #elif 1
0071 JBYT (IZW,IZP,NZB) = ISHFT (ISHFT(IZW,33-IZP-NZB), -32+NZB)
0072
0073 #endif
0074
0075 #endif
