5 * Revision 1.2 1996/03/05 17:04:19 cernlib
6 * Replace #else by elif 1 ( for SGI cpp )
8 * Revision 1.1.1.1 1996/02/15 17:49:19 mclareni
15 #if defined(CERNLIB_QMSUN)&&defined(CERNLIB_BUGLRSHFT)
16 ISHFTL (IZW,NZB) = LSHIFT (IZW, NZB)
17 ISHFTR (IZW,NZB) = ishft (IZW, -NZB)
18 #elif defined(CERNLIB_QMSUN)&&(!defined(CERNLIB_BUGLRSHFT))
19 ISHFTL (IZW,NZB) = LSHIFT (IZW, NZB)
20 ISHFTR (IZW,NZB) = lrshft (IZW, NZB)
21 #elif defined(CERNLIB_QMDOS)&&defined(CERNLIB_QF_F2C)
23 C-- Note: F2C-ish RSHIFT is arithmetic right shift.
24 C-- This means sign bits are shifted in at the high end
26 ISHFTL(IZW,NZB) = LSHIFT(IZW,NZB)
27 C ISHFTR(IZW,NZB) = RSHIFT(IZW,NZB)
28 C ISHFT(IZW,NZB) = LSHIFT(IZW,NZB)
29 #elif defined(CERNLIB_QMLNX)
30 ISHFTL (IZW,NZB) = LSHIFT (IZW,NZB)
32 ISHFTL (IZW,NZB) = ISHFT (IZW, NZB)
33 ISHFTR (IZW,NZB) = ISHFT (IZW, -NZB)