MICROCERN/kerngen/q_isabit.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2.4.1  2002/11/26 16:50:55  hristov
   6 * Merging NewIO with v3-09-04
   7 *
   8 * Revision 1.2  2002/10/14 14:57:11  hristov
   9 * Merging the VirtualMC branch to the main development branch (HEAD)
  10 *
  11 * Revision 1.1.2.1  2002/07/11 17:14:49  alibrary
  12 * Adding MICROCERN
  13 *
  14 * Revision 1.1.1.1  1999/05/18 15:55:29  fca
  15 * AliRoot sources
  16 *
  17 * Revision 1.1.1.1  1996/02/15 17:49:20  mclareni
  18 * Kernlib
  19 *
  20 *
  21 *
  22 * q_isabit.inc
  23 *
  24 #if defined(CERNLIB_QMLNX)||(defined(CERNLIB_QMDOS)&&defined(CERNLIB_QF_F2C))
  25       BTEST(IZW,IZP) = AND (IZW,LSHIFT(1,IZP)) .NE. 0
  26       IBSET(IZW,IZP) =  OR (IZW,LSHIFT(1,IZP))
  27       IBCLR(IZW,IZP) = AND (IZW,NOT(LSHIFT(1,IZP)))
  28       IBITS (IZW,IZP,NZB) = ISHFTR (LSHIFT(IZW,32-IZP-NZB), 32-NZB)
  29 #endif