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

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:50:11  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10 #if defined(CERNLIB_QMSUN)
  11 #include "sungs/jbyt.F"
  12 #else
  13       FUNCTION JBYT (IZW,IZP,NZB)
  14 C
  15 C CERN PROGLIB# M421    JBYT            .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 #include "kerngen/wordsize.inc"
  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       JBYT = ISHFTR(ISHFTL(IZW,NBITPW+1-IZP-NZB), NBITPW-NZB)
  29 #endif
  30 #if (defined(CERNLIB_QISASTD))&&(!defined(CERNLIB_QMILSTD))
  31       JBYT = ISHFT (ISHFT (IZW,NBITPW+1-IZP-NZB),-NBITPW+NZB)
  32 #endif
  33 #if defined(CERNLIB_QMILSTD)
  34       JBYT = IBITS (IZW,IZP-1,NZB)
  35 #endif
  36       RETURN
  37       END
  38 #endif