Warning, /include/zebra/q_shift.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.1.1 1996/03/06 10:46:52 mclareni
0009 * Zebra
0010 *
0011 *
0012 #ifndef CERNLIB_ZEBRA_Q_SHIFT_INC
0013 #define CERNLIB_ZEBRA_Q_SHIFT_INC
0014 *
0015 *
0016 * q_shift.inc
0017 *
0018 #if defined(CERNLIB_APOLLO)
0019 ISHFTL (IZW,NZB) = LSHFT (IZW, NZB)
0020 ISHFTR (IZW,NZB) = RSHFT (IZW, NZB)
0021
0022 #elif defined(CERNLIB_CDC)
0023 ISHFTL (IZW,NZB) = SHIFT (IZW,NZB) .AND. MASK(60-NZB)
0024 ISHFTR (IZW,NZB) = SHIFT (IZW.AND.MASK(60-NZB), 60-NZB)
0025
0026 #elif defined(CERNLIB_CRAY)
0027 ISHFTL (IZW,NZB) = SHIFTL (IZW, NZB)
0028 ISHFTR (IZW,NZB) = SHIFTR (IZW, NZB)
0029
0030 #elif (defined(CERNLIB_MSDOS))&&(defined(CERNLIB_QF_F2C))
0031 C--
0032 C-- Note: RSHIFT is arithmetic with F2C, it cannot be used
0033 C
0034 ISHFTL(IZW,NZB) = LSHIFT(IZW,NZB)
0035 C ISHFTR(IZW,NZB) = RSHIFT(IZW,NZB)
0036 C ISHFT(IZW,NZB) = LSHIFT(IZW,NZB)
0037
0038 #elif defined(CERNLIB_QF_SIEM)
0039 ISHFTL (IZW,NZB) = SHFTL (IZW, NZB)
0040 ISHFTR (IZW,NZB) = SHFTR (IZW, NZB)
0041
0042 #elif defined(CERNLIB_LINUX) && (!defined(CERNLIB_GFORTRAN))
0043 ISHFTL (IZW,NZB) = LSHIFT (IZW,NZB)
0044
0045 #elif (defined(CERNLIB_SUN))&&(!defined(CERNLIB_BUGLRSHFT))
0046 ISHFTL (IZW,NZB) = LSHIFT (IZW, NZB)
0047 ISHFTR (IZW,NZB) = lrshft (IZW, NZB)
0048 #elif (defined(CERNLIB_SUN))&&(defined(CERNLIB_BUGLRSHFT))
0049 ISHFTL (IZW,NZB) = LSHIFT (IZW, NZB)
0050 ISHFTR (IZW,NZB) = ishft (IZW,-NZB)
0051
0052 #elif defined(CERNLIB_QMVDS)
0053 C ISHFTL / ISHFTR are intrinsics of vdS
0054
0055 #elif 1
0056 ISHFTL (IZW,NZB) = ISHFT (IZW, NZB)
0057 ISHFTR (IZW,NZB) = ISHFT (IZW,-NZB)
0058
0059 #endif
0060
0061 #endif
