]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1 1996/04/18 16:15:07 mclareni | |
6 | * Incorporate changes from J.Zoll for version 3.77 | |
7 | * | |
8 | * | |
9 | * | |
10 | #ifndef CERNLIB_ZEBRA_Q_JBYT_INC | |
11 | #define CERNLIB_ZEBRA_Q_JBYT_INC | |
12 | * | |
13 | * | |
14 | * q_jbyt.inc | |
15 | * | |
16 | #if defined(CERNLIB_ALLIANT) | |
17 | JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB) | |
18 | ||
19 | #elif defined(CERNLIB_APOLLO) | |
20 | JBYT (IZW,IZP,NZB)= RSHFT (LSHFT(IZW,33-IZP-NZB), 32-NZB) | |
21 | ||
22 | #elif defined(CERNLIB_CDC) | |
23 | JBYT (IZW,IZP,NZB) = SHIFT(IZW,61-IZP) .AND. .NOT.MASK(60-NZB) | |
24 | ||
25 | #elif defined(CERNLIB_CRAY) | |
26 | JBYT (IZW,IZP,NZB) = SHIFTR(IZW,IZP-1) .AND. MASK(128-NZB) | |
27 | ||
28 | #elif (defined(CERNLIB_CONVEX))&&(!defined(CERNLIB_DOUBLE)) | |
29 | JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB) | |
30 | ||
31 | #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_DOUBLE)) | |
32 | JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB) | |
33 | ||
34 | #elif defined(CERNLIB_MSDOS) | |
35 | ||
36 | #if defined(CERNLIB_QF_NDP) | |
37 | JBYT (IZZW,IZZP,NZZB) = IBITS (IZZW,IZZP-1,NZZB) | |
38 | #elif defined(CERNLIB_QF_F2C) | |
39 | JBYT (IZW,IZP,NZB) = ISHFTR(LSHIFT(IZW,33-IZP-NZB),32-NZB) | |
40 | #endif | |
41 | ||
42 | #elif defined(CERNLIB_HPUX) | |
43 | JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB) | |
44 | ||
45 | #elif defined(CERNLIB_QF_SIEM) | |
46 | JBYT (IZW,IZP,NZB)= SHFTR (SHFTL(IZW,33-IZP-NZB), 32-NZB) | |
47 | ||
48 | #elif defined(CERNLIB_LINUX) | |
49 | JBYT(IZW,IZP,NZB) = ISHFTR(LSHIFT(IZW,33-IZP-NZB),32-NZB) | |
50 | ||
51 | #elif defined(CERNLIB_OS9) | |
52 | JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB) | |
53 | ||
54 | #elif defined(CERNLIB_PDP) | |
55 | JBYT (IZW,IZP,NZB) = IBITS (IZW,IZP-1,NZB) | |
56 | ||
57 | #elif (defined(CERNLIB_SUN))&&(!defined(CERNLIB_BUGLRSHFT)) | |
58 | JBYT (IZW,IZP,NZB)= lrshft (LSHIFT(IZW,33-IZP-NZB),32-NZB) | |
59 | ||
60 | #elif defined(CERNLIB_QMUNO) | |
61 | JBYT (IZW,IZP,NZB) = BITS (IZW,38-IZP-NZB,NZB) | |
62 | ||
63 | #elif defined(CERNLIB_QMVDS) | |
64 | ||
65 | #elif defined(CERNLIB_VAXVMS) | |
66 | ||
67 | #elif 1 | |
68 | JBYT (IZW,IZP,NZB) = ISHFT (ISHFT(IZW,33-IZP-NZB), -32+NZB) | |
69 | ||
70 | #endif | |
71 | ||
72 | #endif |