MINICERN/packlib/kernlib/kerngen/tcgens/mcbyt.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/mcbyt.F"
  12 #else
  13       FUNCTION MCBYT (MZ,IZQ,IZW,IZP,NZB)
  14 C
  15 C CERN PROGLIB# M421    MCBYT           .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 #include "kerngen/iall1s.inc"
  22 #if !defined(CERNLIB_QISASTD)
  23 #include "kerngen/q_andor.inc"
  24 #include "kerngen/q_shift.inc"
  25 * Ignoring t=pass
  26 #endif
  27
  28 #if !defined(CERNLIB_QISASTD)
  29       MCBYT = IOR (
  30      +  IAND(IZW, NOT(ISHFTL(ISHFTR(IALL11, NBITPW-NZB), IZP-1)))
  31      +, ISHFTR(ISHFTL(ISHFTR(MZ, IZQ-1),NBITPW-NZB), NBITPW+1-IZP-NZB))
  32 #endif
  33 #if defined(CERNLIB_QISASTD)
  34       MCBYT = IOR (
  35      +  IAND(IZW, NOT(ISHFT (ISHFT (IALL11,-NBITPW+NZB), IZP-1)))
  36      +, ISHFT (ISHFT (ISHFT (MZ,-IZQ+1),NBITPW-NZB),-NBITPW-1+IZP+NZB))
  37 #endif
  38       RETURN
  39       END
  40 #endif