*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:50:12  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
      FUNCTION JBYTPK (A,JTH,NBITS)
C
C CERN PROGLIB# M422    JBYTPK          .VERSION KERNFOR  4.07  830624
C ORIG. 10/02/71 CL
C
      DIMENSION A(99), NBITS(3)
      INTEGER   A
C
#include "kerngen/q_jbit.inc"
* Ignoring t=pass
C
C
      NBIT  = NBITS(1)
      IF (NBIT.GT.0)  GO TO 7
      NBIT  = 1
#if defined(CERNLIB_B32)
      INWORD = 32
#endif
#if defined(CERNLIB_B36)
      INWORD = 36
#endif
#if defined(CERNLIB_B48)
      INWORD = 48
#endif
#if defined(CERNLIB_B60)
      INWORD = 60
#endif
#if defined(CERNLIB_B64)
      INWORD = 64
#endif
      GO TO 11
C
    7 INWORD= NBITS(2)
   11 JWORD= (JTH-1)/INWORD + 1
      JPOS = JTH - (JWORD-1)*INWORD
      LOC  = (JPOS-1)*NBIT + 1
      JBYTPK= JBYT (A(JWORD),LOC,NBIT)
      RETURN
      END