Warning, /include/kerngen/q_shift.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 1996/03/05 17:04:19 cernlib
0009 * Replace #else by elif 1 ( for SGI cpp )
0010 *
0011 * Revision 1.1.1.1 1996/02/15 17:49:19 mclareni
0012 * Kernlib
0013 *
0014 *
0015 *
0016 * q_shift.inc
0017 *
0018 #if defined(CERNLIB_QMSUN)&&defined(CERNLIB_BUGLRSHFT)
0019 ISHFTL (IZW,NZB) = LSHIFT (IZW, NZB)
0020 ISHFTR (IZW,NZB) = ishft (IZW, -NZB)
0021 #elif defined(CERNLIB_QMSUN)&&(!defined(CERNLIB_BUGLRSHFT))
0022 ISHFTL (IZW,NZB) = LSHIFT (IZW, NZB)
0023 ISHFTR (IZW,NZB) = lrshft (IZW, NZB)
0024 #elif defined(CERNLIB_QMDOS)&&defined(CERNLIB_QF_F2C)
0025 C--
0026 C-- Note: F2C-ish RSHIFT is arithmetic right shift.
0027 C-- This means sign bits are shifted in at the high end
0028 C
0029 ISHFTL(IZW,NZB) = LSHIFT(IZW,NZB)
0030 C ISHFTR(IZW,NZB) = RSHIFT(IZW,NZB)
0031 C ISHFT(IZW,NZB) = LSHIFT(IZW,NZB)
0032 #elif defined(CERNLIB_QMLNX) && (!defined(CERNLIB_GFORTRAN))
0033 ISHFTL (IZW,NZB) = LSHIFT (IZW,NZB)
0034 #elif 1
0035 ISHFTL (IZW,NZB) = ISHFT (IZW, NZB)
0036 ISHFTR (IZW,NZB) = ISHFT (IZW, -NZB)
0037 #endif
