]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1996/03/06 10:46:52 mclareni | |
6 | * Zebra | |
7 | * | |
8 | * | |
9 | #ifndef CERNLIB_ZEBRA_Q_SHIFT_INC | |
10 | #define CERNLIB_ZEBRA_Q_SHIFT_INC | |
11 | * | |
12 | * | |
13 | * q_shift.inc | |
14 | * | |
15 | #if defined(CERNLIB_APOLLO) | |
16 | ISHFTL (IZW,NZB) = LSHFT (IZW, NZB) | |
17 | ISHFTR (IZW,NZB) = RSHFT (IZW, NZB) | |
18 | ||
19 | #elif defined(CERNLIB_CDC) | |
20 | ISHFTL (IZW,NZB) = SHIFT (IZW,NZB) .AND. MASK(60-NZB) | |
21 | ISHFTR (IZW,NZB) = SHIFT (IZW.AND.MASK(60-NZB), 60-NZB) | |
22 | ||
23 | #elif defined(CERNLIB_CRAY) | |
24 | ISHFTL (IZW,NZB) = SHIFTL (IZW, NZB) | |
25 | ISHFTR (IZW,NZB) = SHIFTR (IZW, NZB) | |
26 | ||
27 | #elif (defined(CERNLIB_MSDOS))&&(defined(CERNLIB_QF_F2C)) | |
28 | C-- | |
29 | C-- Note: RSHIFT is arithmetic with F2C, it cannot be used | |
30 | C | |
31 | ISHFTL(IZW,NZB) = LSHIFT(IZW,NZB) | |
32 | C ISHFTR(IZW,NZB) = RSHIFT(IZW,NZB) | |
33 | C ISHFT(IZW,NZB) = LSHIFT(IZW,NZB) | |
34 | ||
35 | #elif defined(CERNLIB_QF_SIEM) | |
36 | ISHFTL (IZW,NZB) = SHFTL (IZW, NZB) | |
37 | ISHFTR (IZW,NZB) = SHFTR (IZW, NZB) | |
38 | ||
39 | #elif defined(CERNLIB_LINUX) | |
40 | ISHFTL (IZW,NZB) = LSHIFT (IZW,NZB) | |
41 | ||
42 | #elif (defined(CERNLIB_SUN))&&(!defined(CERNLIB_BUGLRSHFT)) | |
43 | ISHFTL (IZW,NZB) = LSHIFT (IZW, NZB) | |
44 | ISHFTR (IZW,NZB) = lrshft (IZW, NZB) | |
45 | #elif (defined(CERNLIB_SUN))&&(defined(CERNLIB_BUGLRSHFT)) | |
46 | ISHFTL (IZW,NZB) = LSHIFT (IZW, NZB) | |
47 | ISHFTR (IZW,NZB) = ishft (IZW,-NZB) | |
48 | ||
49 | #elif defined(CERNLIB_QMVDS) | |
50 | C ISHFTL / ISHFTR are intrinsics of vdS | |
51 | ||
52 | #elif 1 | |
53 | ISHFTL (IZW,NZB) = ISHFT (IZW, NZB) | |
54 | ISHFTR (IZW,NZB) = ISHFT (IZW,-NZB) | |
55 | ||
56 | #endif | |
57 | ||
58 | #endif |