Warning, /include/kerngen/q_sbyt.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.4 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.3 1997/09/02 14:26:58 mclareni
0009 * WINNT correction
0010 *
0011 * Revision 1.2 1997/02/04 17:35:40 mclareni
0012 * Merge Winnt and 97a versions
0013 *
0014 * Revision 1.1.1.1.2.1 1997/01/21 11:30:31 mclareni
0015 * All mods for Winnt 96a on winnt branch
0016 *
0017 * Revision 1.1.1.1 1996/02/15 17:49:20 mclareni
0018 * Kernlib
0019 *
0020 *
0021 *
0022 * q_sbyt.inc
0023 *
0024 #if defined(CERNLIB_QMLNX) && (!defined(CERNLIB_GFORTRAN))
0025 MSBYT (MZ,IZW,IZP,NZB) = OR (
0026 + AND (IZW, NOT(LSHIFT (ISHFTR(NOT(0),32-NZB),IZP-1)))
0027 + ,ISHFTR (LSHIFT(MZ,32-NZB), 33-IZP-NZB) )
0028 #elif defined(CERNLIB_QMDOS)&&defined(CERNLIB_QF_F2C)
0029 C MSBYT (MZ,IZW,IZP,NZB) = OR (
0030 C + AND (IZW, NOT(LSHIFT (ISHFTR(NOT(0),32-NZB), IZP-1)))
0031 C + , ISHFTR (LSHIFT(MZ,32-NZB), 33-IZP-NZB) )
0032 #elif defined(CERNLIB_QMOS9)||defined(CERNLIB_QMHPX)||(defined(CERNLIB_QMDOS)&&(!defined(CERNLIB_QF_F2C))) || defined(CERNLIB_QFMSOFT) || defined(CERNLIB_QFDEC) || defined(CERNLIB_GFORTRAN)
0033 MSBYT (MZ,IZW,IZP,NZB) = IOR (
0034 + IAND (IZW, NOT(ISHFT (ISHFT(NOT(0),-32+NZB), IZP-1)))
0035 + , ISHFT (ISHFT(MZ,32-NZB), -33+IZP+NZB) )
0036 #endif
