Warning, /include/kerngen/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:16 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 1997/02/04 17:35:40 mclareni
0009 * Merge Winnt and 97a versions
0010 *
0011 * Revision 1.1.1.1.2.1 1997/01/21 11:30:30 mclareni
0012 * All mods for Winnt 96a on winnt branch
0013 *
0014 * Revision 1.1.1.1 1996/02/15 17:49:20 mclareni
0015 * Kernlib
0016 *
0017 *
0018 *
0019 * q_sbit.inc
0020 *
0021 #if defined(CERNLIB_QMSUN)||(defined(CERNLIB_QMLNX) && (!defined(CERNLIB_GFORTRAN))
0022 MSBIT0 (IZW,IZP) = AND (IZW, NOT(LSHIFT(1,IZP-1)) )
0023 MSBIT1 (IZW,IZP) = OR (IZW, LSHIFT(1,IZP-1) )
0024 MSBIT (MZ,IZW,IZP) = OR (AND (IZW, NOT(LSHIFT(1,IZP-1)) )
0025 + , LSHIFT(AND(MZ,1),IZP-1) )
0026 #elif defined(CERNLIB_QMDOS)&&defined(CERNLIB_QF_F2C)
0027 MSBIT0 (IZW,IZP) = AND (IZW, NOT(LSHIFT(1,IZP-1)) )
0028 MSBIT1 (IZW,IZP) = OR (IZW, LSHIFT(1,IZP-1) )
0029 MSBIT (MZ,IZW,IZP) = OR (AND (IZW, NOT(LSHIFT(1,IZP-1)) )
0030 + , LSHIFT(AND(MZ,1),IZP-1))
0031 #elif defined(CERNLIB_QMOS9)||defined(CERNLIB_QMHPX)||(defined(CERNLIB_QMDOS)&&(!defined(CERNLIB_QF_F2C))) || defined(CERNLIB_QFMSOFT) || defined(CERNLIB_GFORTRAN)
0032 MSBIT0 (IZW,IZP) = IAND (IZW, NOT(ISHFT(1,IZP-1)) )
0033 MSBIT1 (IZW,IZP) = IOR (IZW, ISHFT(1,IZP-1) )
0034 MSBIT (MZ,IZW,IZP) = IOR (IAND (IZW, NOT(ISHFT(1,IZP-1)) )
0035 + , ISHFT(IAND(MZ,1),IZP-1))
0036 #endif
