Warning, /include/zebra/q_sbit1.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_SBIT1_INC
0014 #define CERNLIB_ZEBRA_Q_SBIT1_INC
0015 *
0016 *
0017 * q_sbit1.inc
0018 *
0019
0020 #if defined(CERNLIB_APOLLO)
0021 MSBIT1 (IZW,IZP) = OR (IZW, LSHFT(1,IZP-1) )
0022
0023 #elif defined(CERNLIB_CDC)
0024 MSBIT1 (IZW,IZP) = IZW .OR. SHIFT(MASK(1),IZP)
0025
0026 #elif defined(CERNLIB_CRAY)
0027 MSBIT1 (IZW,IZP) = IZW .OR. SHIFT(MASK(1), IZP)
0028
0029 #elif (defined(CERNLIB_CONVEX))&&(!defined(CERNLIB_DOUBLE))
0030 MSBIT1 (IZW,IZP) = IBSET (IZW,IZP-1)
0031
0032 #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_DOUBLE))
0033 MSBIT1 (IZW,IZP) = IBSET (IZW,IZP-1)
0034
0035 #elif defined(CERNLIB_MSDOS)
0036
0037 #if defined(CERNLIB_QF_NDP)
0038 MSBIT1 (IZZW,IZZP) = IOR (IZZW, ISHFT(1,IZZP-1) )
0039 #elif defined(CERNLIB_QF_F2C)
0040 MSBIT1 (IZW,IZP) = OR (IZW, LSHIFT(1,IZP-1) )
0041 #endif
0042
0043 #elif defined(CERNLIB_QF_SIEM)
0044 MSBIT1 (IZW,IZP) = LOR (IZW, SHFTL(1,IZP-1) )
0045
0046 #elif defined(CERNLIB_LINUX) && (!defined(CERNLIB_GFORTRAN))
0047 MSBIT1 (IZW,IZP) = OR (IZW, LSHIFT(1,IZP-1))
0048
0049 #elif defined(CERNLIB_PDP)
0050 MSBIT1 (IZW,IZP) = IOR (IZW, ISHFT(1,IZP-1) )
0051
0052 #elif defined(CERNLIB_SUN)
0053 MSBIT1 (IZW,IZP) = OR (IZW, LSHIFT(1,IZP-1) )
0054
0055 #elif defined(CERNLIB_VAXVMS)
0056
0057 #elif defined(CERNLIB_QMVDS)
0058 MSBIT1 (IZW,IZP) = OR (IZW, LSHFT(1,IZP-1) )
0059
0060 #elif 1
0061 MSBIT1 (IZW,IZP) = IOR (IZW, ISHFT(1,IZP-1) )
0062 #endif
0063
0064 #endif
