Warning, /include/zebra/q_jbytet.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.3 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.2 1996/04/18 16:15:07 mclareni
0009 * Incorporate changes from J.Zoll for version 3.77
0010 *
0011 * Revision 1.1.1.1 1996/03/06 10:46:52 mclareni
0012 * Zebra
0013 *
0014 *
0015 #ifndef CERNLIB_ZEBRA_Q_JBYTET_INC
0016 #define CERNLIB_ZEBRA_Q_JBYTET_INC
0017 *
0018 *
0019 * q_jbytet.inc
0020 *
0021 #if defined(CERNLIB_ALLIANT)
0022 JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ, IBITS(IZW,IZP-1,NZB))
0023
0024 #elif defined(CERNLIB_APOLLO)
0025 JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
0026 + RSHFT (LSHFT(IZW,33-IZP-NZB), 32-NZB) )
0027
0028 #elif defined(CERNLIB_CDC)
0029 JBYTET (MZ,IZW,IZP,NZB) = MZ .AND. SHIFT(IZW,61-IZP)
0030 + .AND. .NOT.MASK(60-NZB)
0031
0032 #elif defined(CERNLIB_CRAY)
0033 JBYTET (MZ,IZW,IZP,NZB) = MZ .AND. SHIFTR(IZW,IZP-1)
0034 + .AND. MASK(128-NZB)
0035
0036 #elif (defined(CERNLIB_CONVEX))&&(!defined(CERNLIB_DOUBLE))
0037 JBYTET (MZ,IZW,IZP,NZB) = MZ .AND. IBITS(IZW,IZP-1,NZB)
0038
0039 #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_DOUBLE))
0040 JBYTET (MZ,IZW,IZP,NZB) = MZ .AND. IBITS(IZW,IZP-1,NZB)
0041
0042 #elif defined(CERNLIB_MSDOS)
0043
0044 #if defined(CERNLIB_QF_NDP)
0045 JBYTET (MZZ,IZZW,IZZP,NZZB) = IAND (MZZ, IBITS(IZZW,IZZP-1,NZZB))
0046 #elif defined(CERNLIB_QF_F2C)
0047 JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
0048 + ishftr (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
0049 #endif
0050
0051 #elif defined(CERNLIB_HPUX)
0052 JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ, IBITS(IZW,IZP-1,NZB))
0053
0054 #elif defined(CERNLIB_QF_SIEM)
0055 JBYTET (MZ,IZW,IZP,NZB) = LAND (MZ,
0056 + SHFTR (SHFTL(IZW,33-IZP-NZB), 32-NZB) )
0057
0058 #elif defined(CERNLIB_LINUX) && (!defined(CERNLIB_GFORTRAN))
0059 JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
0060 + ISHFTR (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
0061
0062 #elif defined(CERNLIB_OS9)
0063 JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ, IBITS(IZW,IZP-1,NZB))
0064
0065 #elif defined(CERNLIB_PDP)
0066 JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ, IBITS(IZW,IZP-1,NZB))
0067
0068 #elif (defined(CERNLIB_SUN))&&(!defined(CERNLIB_BUGLRSHFT))
0069 JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
0070 + lrshft (LSHIFT(IZW,33-IZP-NZB), 32-NZB))
0071
0072 #elif defined(CERNLIB_QMVDS)
0073 JBYTET (MZ,IZW,IZP,NZB) = AND (MZ, JBYT(IZW,IZP,NZB))
0074
0075 #elif 1
0076 JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ,
0077 + ISHFT (ISHFT(IZW,33-IZP-NZB),-32+NZB) )
0078 #endif
0079
0080 #endif
