Warning, /include/kerngen/q_cbyt.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: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.1.1.1 1996/02/15 17:49:19 mclareni
0009 * Kernlib
0010 *
0011 *
0012 *
0013 * q_cbyt.inc
0014 *
0015 #if defined(CERNLIB_QMLNX) && (!defined(CERNLIB_GFORTRAN))
0016 MCBYT (MZ,IZQ,IZW,IZP,NZB) = OR (
0017 + AND (IZW, NOT(LSHIFT (ISHFTR(NOT(0),32-NZB),IZP-1)))
0018 + ,ISHFTR (LSHIFT(LSHIFT(MZ,IZQ-1),32-NZB), 33-IZP-NZB))
0019 #elif defined(CERNLIB_QMDOS)&&defined(CERNLIB_QF_F2C)
0020 C MCBYT (MZ,IZQ,IZW,IZP,NZB) = OR (
0021 C + AND (IZW, NOT(LSHIFT (ishftr(NOT(0),32-NZB), IZP-1)))
0022 C + , ishftr (LSHIFT(LSHIFT(MZ,-IZQ+1),32-NZB), 33-IZP-NZB) )
0023 #elif defined(CERNLIB_QMOS9)||defined(CERNLIB_QMHPX)||(defined(CERNLIB_QMDOS)&&(!defined(CERNLIB_QF_F2C)))
0024 MCBYT (MZ,IZQ,IZW,IZP,NZB) = IOR (
0025 + IAND (IZW, NOT(ISHFT (ISHFT(NOT(0),-32+NZB), IZP-1)))
0026 + , ISHFT (ISHFT(ISHFT(MZ,-IZQ+1),32-NZB), -33+IZP+NZB) )
0027 #elif defined(CERNLIB_GFORTRAN)
0028 MCBYT (MZ,IZQ,IZW,IZP,NZB) = IOR (
0029 + IAND (IZW, NOT(ISHFT (ISHFT(NOT(0),-32+NZB), IZP-1)))
0030 + , ISHFT (ISHFT(ISHFT(MZ,IZQ-1),32-NZB), -33+IZP+NZB) )
0031 #endif
