Warning, /include/zebra/q_shiftl.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_SHIFTL_INC
0014 #define CERNLIB_ZEBRA_Q_SHIFTL_INC
0015 *
0016 *
0017 * q_shiftl.inc
0018 *
0019 #if defined(CERNLIB_APOLLO)
0020 ISHFTL (IZW,NZB) = LSHFT (IZW, NZB)
0021
0022 #elif defined(CERNLIB_CDC)
0023 ISHFTL (IZW,NZB) = SHIFT (IZW,NZB) .AND. MASK(60-NZB)
0024
0025 #elif defined(CERNLIB_CRAY)
0026 ISHFTL (IZW,NZB) = SHIFTL (IZW, NZB)
0027
0028 #elif (defined(CERNLIB_MSDOS))&&(defined(CERNLIB_QF_F2C))
0029 ISHFTL(IZW,NZB) = LSHIFT(IZW,NZB)
0030
0031 #elif defined(CERNLIB_QF_SIEM)
0032 ISHFTL (IZW,NZB) = SHFTL (IZW, NZB)
0033
0034 #elif defined(CERNLIB_LINUX) && (!defined(CERNLIB_GFORTRAN))
0035 ISHFTL (IZW,NZB) = LSHIFT (IZW,NZB)
0036
0037 #elif (defined(CERNLIB_SUN))&&(!defined(CERNLIB_BUGLRSHFT))
0038 ISHFTL (IZW,NZB) = LSHIFT (IZW, NZB)
0039 #elif (defined(CERNLIB_SUN))&&(defined(CERNLIB_BUGLRSHFT))
0040 ISHFTL (IZW,NZB) = LSHIFT (IZW, NZB)
0041
0042 #elif defined(CERNLIB_QMVDS)
0043 C ISHFTL / ISHFTR are intrinsics of vdS
0044
0045 #elif 1
0046 ISHFTL (IZW,NZB) = ISHFT (IZW, NZB)
0047
0048 #endif
0049
0050 #endif
