Warning, /include/zebra/q_jbytor.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:10 mclareni
0009 * Incorporate changes from J.Zoll for version 3.77
0010 *
0011 *
0012 *
0013 #ifndef CERNLIB_ZEBRA_Q_JBYTOR_INC
0014 #define CERNLIB_ZEBRA_Q_JBYTOR_INC
0015 *
0016 *
0017 * q_jbytor.inc
0018 *
0019 #if defined(CERNLIB_ALLIANT)
0020 JBYTOR (MZ,IZW,IZP,NZB) = IOR (MZ, IBITS(IZW,IZP-1,NZB))
0021
0022 #elif defined(CERNLIB_APOLLO)
0023 JBYTOR (MZ,IZW,IZP,NZB) = OR (MZ,
0024 + RSHFT (LSHFT(IZW,33-IZP-NZB), 32-NZB) )
0025
0026 #elif defined(CERNLIB_CDC)
0027 JBYTOR (MZ,IZW,IZP,NZB) = MZ .OR. (SHIFT(IZW,61-IZP)
0028 + .AND. .NOT.MASK(60-NZB) )
0029
0030 #elif defined(CERNLIB_CRAY)
0031 JBYTOR (MZ,IZW,IZP,NZB) = MZ .OR. (SHIFTR(IZW,IZP-1)
0032 + .AND. MASK(128-NZB) )
0033
0034 #elif (defined(CERNLIB_CONVEX))&&(!defined(CERNLIB_DOUBLE))
0035 JBYTOR (MZ,IZW,IZP,NZB) = MZ .OR. IBITS(IZW,IZP-1,NZB)
0036
0037 #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_DOUBLE))
0038 JBYTOR (MZ,IZW,IZP,NZB) = MZ .OR. IBITS(IZW,IZP-1,NZB)
0039
0040 #elif defined(CERNLIB_MSDOS)
0041
0042 #if defined(CERNLIB_QF_NDP)
0043 JBYTOR (MZZ,IZZW,IZZP,NZZB) = IOR (MZZ, IBITS(IZZW,IZZP-1,NZZB))
0044 #elif defined(CERNLIB_QF_F2C)
0045 JBYTOR (MZ,IZW,IZP,NZB) = OR (MZ,
0046 + ishftr (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
0047 #endif
0048
0049 #elif defined(CERNLIB_HPUX)
0050 JBYTOR (MZ,IZW,IZP,NZB) = IOR (MZ, IBITS(IZW,IZP-1,NZB))
0051
0052 #elif defined(CERNLIB_QF_SIEM)
0053 JBYTOR (MZ,IZW,IZP,NZB) = LOR (MZ,
0054 + SHFTR (SHFTL(IZW,33-IZP-NZB), 32-NZB) )
0055
0056 #elif defined(CERNLIB_LINUX) && (!defined(CERNLIB_GFORTRAN))
0057 JBYTOR (MZ,IZW,IZP,NZB) = OR (MZ,
0058 + ISHFTR (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
0059
0060 #elif defined(CERNLIB_OS9)
0061 JBYTOR (MZ,IZW,IZP,NZB) = IOR (MZ, IBITS(IZW,IZP-1,NZB))
0062
0063 #elif defined(CERNLIB_PDP)
0064 JBYTOR (MZ,IZW,IZP,NZB) = IOR (MZ, IBITS(IZW,IZP-1,NZB))
0065
0066 #elif (defined(CERNLIB_SUN))&&(!defined(CERNLIB_BUGLRSHFT))
0067 JBYTOR (MZ,IZW,IZP,NZB) = OR (MZ,
0068 + lrshft (LSHIFT(IZW,33-IZP-NZB), 32-NZB))
0069
0070 #elif defined(CERNLIB_QMVDS)
0071 JBYTOR (MZ,IZW,IZP,NZB) = OR (MZ, JBYT(IZW,IZP,NZB))
0072
0073 #elif 1
0074 JBYTOR (MZ,IZW,IZP,NZB) = IOR (MZ,
0075 + ISHFT (ISHFT(IZW,33-IZP-NZB),-32+NZB) )
0076 #endif
0077
0078 #endif
