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

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