Warning, /include/zebra/q_jbit.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.3 2006/09/15 09:35:33 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.2 1996/04/18 16:15:06 mclareni
0009 * Incorporate changes from J.Zoll for version 3.77
0010 *
0011 * Revision 1.1.1.1 1996/03/06 10:46:52 mclareni
0012 * Zebra
0013 *
0014 *
0015 #ifndef CERNLIB_ZEBRA_Q_JBIT_INC
0016 #define CERNLIB_ZEBRA_Q_JBIT_INC
0017 *
0018 *
0019 * q_jbit.inc
0020 *
0021 #if defined(CERNLIB_ALLIANT)
0022 JBIT (IZW,IZP) = IBITS (IZW,IZP-1,1)
0023
0024 #elif defined(CERNLIB_APOLLO)
0025 JBIT (IZW,IZP) = AND (RSHFT(IZW,IZP-1), 1)
0026
0027 #elif defined(CERNLIB_CDC)
0028 JBIT (IZW,IZP) = SHIFT(IZW,61-IZP) .AND. .NOT.MASK(59)
0029
0030 #elif defined(CERNLIB_CRAY)
0031 JBIT (IZW,IZP) = SHIFTR(IZW,IZP-1) .AND. MASK(127)
0032
0033 #elif (defined(CERNLIB_CONVEX))&&(!defined(CERNLIB_DOUBLE))
0034 JBIT (IZW,IZP) = IBITS (IZW,IZP-1,1)
0035
0036 #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_DOUBLE))
0037 JBIT (IZW,IZP) = IBITS (IZW,IZP-1,1)
0038
0039 #elif defined(CERNLIB_MSDOS)
0040
0041 #if defined(CERNLIB_QF_NDP)
0042 JBIT (IZZW,IZZP) = IBITS (IZZW,IZZP-1,1)
0043 #elif defined(CERNLIB_QF_F2C)
0044 JBIT (IZW,IZP) = AND(RSHIFT(IZW,IZP-1),1)
0045 #endif
0046
0047 #elif defined(CERNLIB_HPUX)
0048 JBIT (IZW,IZP) = IBITS (IZW,IZP-1,1)
0049
0050 #elif defined(CERNLIB_QF_SIEM)
0051 JBIT (IZW,IZP) = SHFTR (SHFTL(IZW,32-IZP), 31)
0052
0053 #elif defined(CERNLIB_LINUX) && (!defined(CERNLIB_GFORTRAN))
0054 JBIT(IZW,IZP) = AND(ISHFTR(IZW,IZP-1),1)
0055
0056 #elif defined(CERNLIB_OS9)
0057 JBIT (IZW,IZP) = IBITS (IZW,IZP-1,1)
0058
0059 #elif defined(CERNLIB_PDP)
0060 JBIT (IZW,IZP) = IBITS (IZW,IZP-1,1)
0061
0062 #elif (defined(CERNLIB_SUN))&&(!defined(CERNLIB_BUGLRSHFT))
0063 JBIT (IZW,IZP) = AND (lrshft(IZW,IZP-1), 1)
0064
0065 #elif defined(CERNLIB_QMUNO)
0066 JBIT (IZW,IZP) = BITS (IZW,37-IZP,1)
0067
0068 #elif defined(CERNLIB_QMVDS)
0069 JBIT (IZW,IZP) = JBYT (IZW,IZP,1)
0070
0071 #elif defined(CERNLIB_VAXVMS)
0072
0073 #elif 1
0074 JBIT (IZW,IZP) = IAND (ISHFT(IZW,1-IZP), 1)
0075
0076 #endif
0077
0078 #endif
