Warning, /include/kerngen/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:16 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 1997/02/04 17:35:40 mclareni
0009 * Merge Winnt and 97a versions
0010 *
0011 * Revision 1.1.1.1.2.1 1997/01/21 11:30:29 mclareni
0012 * All mods for Winnt 96a on winnt branch
0013 *
0014 * Revision 1.1.1.1 1996/02/15 17:49:20 mclareni
0015 * Kernlib
0016 *
0017 *
0018 *
0019 * q_jbytet.inc
0020 *
0021 #if defined(CERNLIB_QMSUN)&&defined(CERNLIB_BUGLRSHFT)
0022 #elif defined(CERNLIB_QMSUN)&&(!defined(CERNLIB_BUGLRSHFT))
0023 JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
0024 + lrshft (LSHIFT(IZW,33-IZP-NZB), 32-NZB))
0025 JBYTOR (MZ,IZW,IZP,NZB) = OR (MZ,
0026 + lrshft (LSHIFT(IZW,33-IZP-NZB), 32-NZB))
0027 MBYTET (MZ,IZW,IZP,NZB) = AND (IZW, NOT(lrshft (
0028 + LSHIFT(NOT(MZ),32-NZB), 33-IZP-NZB)))
0029 MBYTOR (MZ,IZW,IZP,NZB) = OR (IZW, lrshft (
0030 + LSHIFT(MZ,32-NZB), 33-IZP-NZB))
0031 #if defined(CERNLIB_QMLNX) && (!defined(CERNLIB_GFORTRAN))
0032 JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
0033 + ISHFTR (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
0034 JBYTOR (MZ,IZW,IZP,NZB) = OR (MZ,
0035 + ISHFTR (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
0036 MBYTET (MZ,IZW,IZP,NZB) = AND (IZW,
0037 + NOT(ISHFTR (LSHIFT(NOT(MZ),32-NZB),33-IZP-NZB)) )
0038 MBYTOR (MZ,IZW,IZP,NZB) = OR (IZW,
0039 + ISHFTR (LSHIFT(MZ,32-NZB),33-IZP-NZB))
0040 #if defined(CERNLIB_QMDOS)&&defined(CERNLIB_QF_F2C)
0041 JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
0042 + ishftr (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
0043 JBYTOR (MZ,IZW,IZP,NZB) = OR (MZ,
0044 + ishftr (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
0045 MBYTET (MZ,IZW,IZP,NZB) = AND (IZW,
0046 + NOT(ishftr (LSHIFT(NOT(MZ),32-NZB),33-IZP-NZB)) )
0047 MBYTOR (MZ,IZW,IZP,NZB) = OR (IZW,
0048 + ishftr (LSHIFT(MZ,32-NZB),33-IZP-NZB) )
0049 #elif defined(CERNLIB_QMOS9)||defined(CERNLIB_QMHPX)
0050 JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ, IBITS(IZW,IZP-1,NZB))
0051 JBYTOR (MZ,IZW,IZP,NZB) = IOR (MZ, IBITS(IZW,IZP-1,NZB))
0052 MBYTET (MZ,IZW,IZP,NZB) = IAND (IZW, NOT(ishft (
0053 + ISHFT(NOT(MZ),32-NZB),-33+IZP+NZB)) )
0054 MBYTOR (MZ,IZW,IZP,NZB) = IOR (IZW, ishft (
0055 + ISHFT(MZ,32-NZB),-33+IZP+NZB) )
0056 #elif (defined(CERNLIB_QMDOS)&&(!defined(CERNLIB_QF_F2C))) || defined(CERNLIB_QFMSOFT)\
0057 || defined(CERNLIB_GFORTRAN)
0058 JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ,
0059 + ISHFT (ISHFT(IZW,33-IZP-NZB),-32+NZB) )
0060 JBYTOR (MZ,IZW,IZP,NZB) = IOR (MZ,
0061 + ISHFT (ISHFT(IZW,33-IZP-NZB),-32+NZB) )
0062 MBYTET (MZ,IZW,IZP,NZB) = IAND (IZW,
0063 + NOT(ISHFT (ISHFT(NOT(MZ),32-NZB),-33+IZP+NZB)) )
0064 MBYTOR (MZ,IZW,IZP,NZB) = IOR (IZW,
0065 + ISHFT (ISHFT(MZ,32-NZB),-33+IZP+NZB) )
0066 #endif
