]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1 1996/04/18 16:15:25 mclareni | |
6 | * Incorporate changes from J.Zoll for version 3.77 | |
7 | * | |
8 | * | |
9 | * | |
10 | #ifndef CERNLIB_ZEBRA_Q_SHIFTL_INC | |
11 | #define CERNLIB_ZEBRA_Q_SHIFTL_INC | |
12 | * | |
13 | * | |
14 | * q_shiftl.inc | |
15 | * | |
16 | #if defined(CERNLIB_APOLLO) | |
17 | ISHFTL (IZW,NZB) = LSHFT (IZW, NZB) | |
18 | ||
19 | #elif defined(CERNLIB_CDC) | |
20 | ISHFTL (IZW,NZB) = SHIFT (IZW,NZB) .AND. MASK(60-NZB) | |
21 | ||
22 | #elif defined(CERNLIB_CRAY) | |
23 | ISHFTL (IZW,NZB) = SHIFTL (IZW, NZB) | |
24 | ||
25 | #elif (defined(CERNLIB_MSDOS))&&(defined(CERNLIB_QF_F2C)) | |
26 | ISHFTL(IZW,NZB) = LSHIFT(IZW,NZB) | |
27 | ||
28 | #elif defined(CERNLIB_QF_SIEM) | |
29 | ISHFTL (IZW,NZB) = SHFTL (IZW, NZB) | |
30 | ||
31 | #elif defined(CERNLIB_LINUX) | |
32 | ISHFTL (IZW,NZB) = LSHIFT (IZW,NZB) | |
33 | ||
34 | #elif (defined(CERNLIB_SUN))&&(!defined(CERNLIB_BUGLRSHFT)) | |
35 | ISHFTL (IZW,NZB) = LSHIFT (IZW, NZB) | |
36 | #elif (defined(CERNLIB_SUN))&&(defined(CERNLIB_BUGLRSHFT)) | |
37 | ISHFTL (IZW,NZB) = LSHIFT (IZW, NZB) | |
38 | ||
39 | #elif defined(CERNLIB_QMVDS) | |
40 | C ISHFTL / ISHFTR are intrinsics of vdS | |
41 | ||
42 | #elif 1 | |
43 | ISHFTL (IZW,NZB) = ISHFT (IZW, NZB) | |
44 | ||
45 | #endif | |
46 | ||
47 | #endif |