Warning, /include/zebra/q_sbyt.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:34 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.1.1 1996/03/06 10:46:52 mclareni
0009 * Zebra
0010 *
0011 *
0012 #ifndef CERNLIB_ZEBRA_Q_SBYT_INC
0013 #define CERNLIB_ZEBRA_Q_SBYT_INC
0014 *
0015 *
0016 * q_sbyt.inc
0017 *
0018 #if defined(CERNLIB_APOLLO)
0019 MSBYT (MZ,IZW,IZP,NZB) = OR (
0020 + AND (IZW, NOT(LSHFT (RSHFT(NOT(INT4(0)),32-NZB), IZP-1)))
0021 + , RSHFT (LSHFT(MZ,32-NZB), 33-IZP-NZB) )
0022
0023 #elif defined(CERNLIB_CDC)
0024 MSBYT (MZ,IZW,IZP,NZB) = SHIFT (
0025 + (SHIFT(IZW,61-IZP-NZB) .AND. .NOT.MASK(NZB))
0026 + .OR. (SHIFT (MZ,60-NZB) .AND. MASK(NZB)), IZP+NZB-1)
0027
0028 #elif defined(CERNLIB_CRAY)
0029 MSBYT (MZ,IZW,IZP,NZB) = (IZW .AND. SHIFT(MASK(64-NZB),IZP-1))
0030 + .OR. SHIFT(MZ.AND.MASK(128-NZB),IZP-1)
0031
0032 #elif defined(CERNLIB_MSDOS)
0033
0034 #if defined(CERNLIB_QF_NDP)
0035 MSBYT (MZZ,IZZW,IZZP,NZZB) = IOR (
0036 + IAND (IZZW, NOT(ISHFT (ISHFT(NOT(0),-32+NZZB), IZZP-1)))
0037 + , ISHFT (ISHFT(MZZ,32-NZZB), -33+IZZP+NZZB) )
0038 #elif defined(CERNLIB_QF_F2C)
0039 C MSBYT (MZ,IZW,IZP,NZB) = OR (
0040 C + AND (IZW, NOT(LSHIFT (ISHFTR(NOT(0),32-NZB), IZP-1)))
0041 C + , ISHFTR (LSHIFT(MZ,32-NZB), 33-IZP-NZB) )
0042 #endif
0043
0044 #elif defined(CERNLIB_QF_SIEM)
0045 MSBYT (MZ,IZW,IZP,NZB) = LOR (
0046 + LAND (IZW, LCOMPL(SHFTL (SHFTR(-1,32-NZB), IZP-1)))
0047 + , SHFTR (SHFTL(MZ,32-NZB), 33-IZP-NZB) )
0048
0049 #elif defined(CERNLIB_LINUX) && (!defined(CERNLIB_GFORTRAN))
0050 MSBYT (MZ,IZW,IZP,NZB) = OR (
0051 + AND (IZW, NOT(LSHIFT (ISHFTR(NOT(0),32-NZB),IZP-1)))
0052 + ,ISHFTR (LSHIFT(MZ,32-NZB), 33-IZP-NZB) )
0053
0054 #elif defined(CERNLIB_PDP)
0055 MSBYT (MZ,IZW,IZP,NZB) = IOR (
0056 + IAND (IZW, NOT(ISHFT (ISHFT(NOT(0),-36+NZB), IZP-1)))
0057 + , ISHFT (ISHFT(MZ, 36-NZB), -37+IZP+NZB) )
0058
0059 #elif defined(CERNLIB_VAXVMS)
0060
0061 #elif defined(CERNLIB_QMVDS)
0062 MSBYT (MZ,IZW,IZP,NZB) = OR (
0063 + AND (IZW, NOT(LSHFT (RSHFT(NOT(0),32-NZB), IZP-1)))
0064 + , RSHFT (LSHFT(MZ,32-NZB), 33-IZP-NZB) )
0065
0066 #elif 1
0067 MSBYT (MZ,IZW,IZP,NZB) = IOR (
0068 + IAND (IZW, NOT(ISHFT (ISHFT(NOT(0),-32+NZB), IZP-1)))
0069 + , ISHFT (ISHFT(MZ,32-NZB), -33+IZP+NZB) )
0070 #endif
0071
0072 #endif
