Warning, /include/zebra/q_shiftr.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 1996/04/18 16:15:25 mclareni
0009 * Incorporate changes from J.Zoll for version 3.77
0010 *
0011 *
0012 *
0013 #ifndef CERNLIB_ZEBRA_Q_SHIFTR_INC
0014 #define CERNLIB_ZEBRA_Q_SHIFTR_INC
0015 *
0016 *
0017 * q_shiftr.inc
0018 *
0019 #if defined(CERNLIB_APOLLO)
0020 ISHFTR (IZW,NZB) = RSHFT (IZW, NZB)
0021
0022 #elif defined(CERNLIB_CDC)
0023 ISHFTR (IZW,NZB) = SHIFT (IZW.AND.MASK(60-NZB), 60-NZB)
0024
0025 #elif defined(CERNLIB_CRAY)
0026 ISHFTR (IZW,NZB) = SHIFTR (IZW, NZB)
0027
0028 #elif (defined(CERNLIB_MSDOS))&&(defined(CERNLIB_QF_F2C))
0029 C--
0030 C-- Note: RSHIFT is arithmetic with F2C, it cannot be used
0031 C
0032 C ISHFTR(IZW,NZB) = RSHIFT(IZW,NZB)
0033 C ISHFT(IZW,NZB) = LSHIFT(IZW,NZB)
0034
0035 #elif defined(CERNLIB_QF_SIEM)
0036 ISHFTR (IZW,NZB) = SHFTR (IZW, NZB)
0037
0038 #elif defined(CERNLIB_LINUX) && (!defined(CERNLIB_GFORTRAN))
0039
0040 #elif (defined(CERNLIB_SUN))&&(!defined(CERNLIB_BUGLRSHFT))
0041 ISHFTR (IZW,NZB) = lrshft (IZW, NZB)
0042 #elif (defined(CERNLIB_SUN))&&(defined(CERNLIB_BUGLRSHFT))
0043 ISHFTR (IZW,NZB) = ishft (IZW,-NZB)
0044
0045 #elif defined(CERNLIB_QMVDS)
0046 C ISHFTL / ISHFTR are intrinsics of vdS
0047
0048 #elif 1
0049 ISHFTR (IZW,NZB) = ISHFT (IZW,-NZB)
0050
0051 #endif
0052
0053 #endif
