MINICERN/packlib/kernlib/kerngen/tcgens/sbytpk.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       SUBROUTINE SBYTPK (I,X,JTH,NBITS)
  11 C
  12 C CERN PROGLIB# M422    SBYTPK          .VERSION KERNFOR  4.06  830526
  13 C ORIG. 10/02/71
  14 C
  15       DIMENSION X(99), NBITS(3)
  16 C
  17 C
  18       NBIT  = NBITS(1)
  19       IF (NBIT.GT.0)  GO TO 7
  20       NBIT  = 1
  21 #if defined(CERNLIB_B32)
  22       INWORD = 32
  23 #endif
  24 #if defined(CERNLIB_B36)
  25       INWORD = 36
  26 #endif
  27 #if defined(CERNLIB_B48)
  28       INWORD = 48
  29 #endif
  30 #if defined(CERNLIB_B60)
  31       INWORD = 60
  32 #endif
  33 #if defined(CERNLIB_B64)
  34       INWORD = 64
  35 #endif
  36       GO TO 11
  37 C
  38     7 INWORD= NBITS(2)
  39    11 JWORD= (JTH-1)/INWORD + 1
  40       JPOS = JTH - (JWORD-1)*INWORD
  41       LOC  = (JPOS-1)*NBIT + 1
  42       CALL SBYT (I,X(JWORD),LOC,NBIT)
  43       RETURN
  44       END