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

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:50:14  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10 #if defined(CERNLIB_QMSUN)
  11 #include "sungs/sbyt.F"
  12 #else
  13       SUBROUTINE SBYT (IT,IZW,IZP,NZB)
  14 C
  15 C CERN PROGLIB# M421    SBYT            .VERSION KERNFOR  4.23  891215
  16 C MOD. true default 24/2/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 C
  21 #include "kerngen/wordsize.inc"
  22 #include "kerngen/iall1s.inc"
  23 #if !defined(CERNLIB_QISASTD)
  24 #include "kerngen/q_andor.inc"
  25 #include "kerngen/q_shift.inc"
  26 * Ignoring t=pass
  27 #endif
  28
  29 #if !defined(CERNLIB_QISASTD)
  30       MSK = ISHFTR (IALL11, NBITPW-NZB)
  31       IZW = IOR ( IAND (IZW, NOT(ISHFTL(MSK,IZP-1)))
  32      +,           ISHFTL(IAND(IT,MSK),IZP-1))
  33 #endif
  34 #if defined(CERNLIB_QISASTD)
  35       MSK = ISHFT  (IALL11,-NBITPW+NZB)
  36       IZW = IOR ( IAND (IZW, NOT(ISHFT (MSK,IZP-1)))
  37      +,           ISHFT (IAND(IT,MSK),IZP-1))
  38 #endif
  39       RETURN
  40       END
  41 #endif