MINICERN/packlib/kernlib/kerngen/tcgens/msbit1.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:50:19  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10 #if defined(CERNLIB_QMSUN)
  11 #include "sungs/msbit1.F"
  12 #else
  13       FUNCTION MSBIT1 (IZW,IZP)
  14 C
  15 C CERN PROGLIB# M421    MSBIT1          .VERSION KERNFOR  4.23  891215
  16 C ORIG. 13/03/89  JZ
  17 C
  18 C     This non-ANSI code is a default which may be slow, if so
  19 C     it should be replaced by a machine-specific fast routine
  20
  21 #if !defined(CERNLIB_QISASTD)
  22 #include "kerngen/q_andor.inc"
  23 #include "kerngen/q_shift.inc"
  24 * Ignoring t=pass
  25 #endif
  26
  27 #if !defined(CERNLIB_QISASTD)
  28       MSBIT1 = IOR (IZW, ISHFTL(1,IZP-1))
  29 #endif
  30 #if defined(CERNLIB_QISASTD)
  31       MSBIT1 = IOR (IZW, ISHFT (1,IZP-1))
  32 #endif
  33       RETURN
  34       END
  35 #endif