Warning, /include/zebra/q_sbit0.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.2 2006/09/15 09:35:34 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.1 1996/04/18 16:15:24 mclareni
0009 * Incorporate changes from J.Zoll for version 3.77
0010 *
0011 *
0012 *
0013 #ifndef CERNLIB_ZEBRA_Q_SBIT0_INC
0014 #define CERNLIB_ZEBRA_Q_SBIT0_INC
0015 *
0016 *
0017 * q_sbit0.inc
0018 *
0019
0020 #if defined(CERNLIB_APOLLO)
0021 MSBIT0 (IZW,IZP) = AND (IZW, NOT(LSHFT(1,IZP-1)) )
0022
0023 #elif defined(CERNLIB_CDC)
0024 MSBIT0 (IZW,IZP) = IZW .AND. .NOT.SHIFT(MASK(1),IZP)
0025
0026 #elif defined(CERNLIB_CRAY)
0027 MSBIT0 (IZW,IZP) = IZW .AND. SHIFT(MASK(65),IZP)
0028
0029 #elif (defined(CERNLIB_CONVEX))&&(!defined(CERNLIB_DOUBLE))
0030 MSBIT0 (IZW,IZP) = IBCLR (IZW,IZP-1)
0031
0032 #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_DOUBLE))
0033 MSBIT0 (IZW,IZP) = IBCLR (IZW,IZP-1)
0034
0035 #elif defined(CERNLIB_MSDOS)
0036
0037 #if defined(CERNLIB_QF_NDP)
0038 MSBIT0 (IZZW,IZZP) = IAND (IZZW, NOT(ISHFT(1,IZZP-1)) )
0039
0040 #elif defined(CERNLIB_QF_F2C)
0041 MSBIT0 (IZW,IZP) = AND (IZW, NOT(LSHIFT(1,IZP-1)) )
0042 #endif
0043
0044 #elif defined(CERNLIB_QF_SIEM)
0045 MSBIT0 (IZW,IZP) = LAND (IZW, LCOMPL(SHFTL(1,IZP-1)) )
0046
0047 #elif defined(CERNLIB_LINUX) && (!defined(CERNLIB_GFORTRAN))
0048 MSBIT0 (IZW,IZP) = AND (IZW, NOT(LSHIFT(1,IZP-1)))
0049
0050 #elif defined(CERNLIB_PDP)
0051 MSBIT0 (IZW,IZP) = IAND (IZW, NOT(ISHFT(1,IZP-1)) )
0052
0053 #elif defined(CERNLIB_SUN)
0054 MSBIT0 (IZW,IZP) = AND (IZW, NOT(LSHIFT(1,IZP-1)) )
0055
0056 #elif defined(CERNLIB_VAXVMS)
0057
0058 #elif defined(CERNLIB_QMVDS)
0059 MSBIT0 (IZW,IZP) = AND (IZW, NOT(LSHFT(1,IZP-1)) )
0060
0061 #elif 1
0062 MSBIT0 (IZW,IZP) = IAND (IZW, NOT(ISHFT(1,IZP-1)) )
0063 #endif
0064
0065 #endif
