Warning, /include/zebra/q_sbit.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: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.2 1996/04/18 16:15:23 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_SBIT_INC
0016 #define CERNLIB_ZEBRA_Q_SBIT_INC
0017 *
0018 *
0019 * q_sbit.inc
0020 *
0021
0022 #if defined(CERNLIB_APOLLO)
0023 MSBIT (MZ,IZW,IZP) = OR (AND (IZW, NOT(LSHFT(1,IZP-1)) )
0024 + , LSHFT(AND(MZ,1),IZP-1) )
0025
0026 #elif defined(CERNLIB_CDC)
0027 MSBIT (MZ,IZW,IZP) =(IZW .AND. .NOT.SHIFT(MASK(1),IZP))
0028 + .OR. SHIFT(MZ .AND. .NOT.MASK(59),IZP-1)
0029
0030 #elif defined(CERNLIB_CRAY)
0031 MSBIT (MZ,IZW,IZP) = (IZW .AND. SHIFT(MASK(65),IZP))
0032 + .OR. SHIFT(MZ.AND.MASK(127),IZP-1)
0033
0034 #elif (defined(CERNLIB_CONVEX))&&(!defined(CERNLIB_DOUBLE))
0035
0036 #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_DOUBLE))
0037
0038 #elif defined(CERNLIB_MSDOS)
0039
0040 #if defined(CERNLIB_QF_NDP)
0041 MSBIT (MZZ,IZZW,IZZP) = IOR (IAND (IZZW, NOT(ISHFT(1,IZZP-1)) )
0042 + , ISHFT(IAND(MZZ,1),IZZP-1))
0043 #elif defined(CERNLIB_QF_F2C)
0044 MSBIT (MZ,IZW,IZP) = OR (AND (IZW, NOT(LSHIFT(1,IZP-1)) )
0045 + , LSHIFT(AND(MZ,1),IZP-1))
0046 #endif
0047
0048 #elif defined(CERNLIB_QF_SIEM)
0049 MSBIT (MZ,IZW,IZP) = LOR (LAND (IZW, LCOMPL(SHFTL(1,IZP-1)) )
0050 + , SHFTL(LAND(MZ,1),IZP-1) )
0051
0052 #elif defined(CERNLIB_LINUX) && (!defined(CERNLIB_GFORTRAN))
0053 MSBIT (MZ,IZW,IZP) = OR (AND (IZW, NOT(LSHIFT(1,IZP-1)))
0054 + ,LSHIFT(AND(MZ,1),IZP-1))
0055
0056 #elif defined(CERNLIB_PDP)
0057 MSBIT (MZ,IZW,IZP) = IOR (IAND (IZW, NOT(ISHFT(1,IZP-1)) )
0058 + , ISHFT (IAND(MZ,1),IZP-1) )
0059
0060 #elif defined(CERNLIB_SUN)
0061 MSBIT (MZ,IZW,IZP) = OR (AND (IZW, NOT(LSHIFT(1,IZP-1)) )
0062 + , LSHIFT(AND(MZ,1),IZP-1) )
0063
0064 #elif defined(CERNLIB_VAXVMS)
0065
0066 #elif defined(CERNLIB_QMVDS)
0067 MSBIT (MZ,IZW,IZP) = OR (AND (IZW, NOT(LSHFT(1,IZP-1)) )
0068 + , LSHFT(AND(MZ,1),IZP-1) )
0069
0070 #elif 1
0071 MSBIT (MZ,IZW,IZP) = IOR (IAND (IZW, NOT(ISHFT(1,IZP-1)) )
0072 + , ISHFT(IAND(MZ,1),IZP-1))
0073 #endif
0074
0075 #endif
