[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgens / sbytpk.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:50:14  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
      SUBROUTINE SBYTPK (I,X,JTH,NBITS)
C
C CERN PROGLIB# M422    SBYTPK          .VERSION KERNFOR  4.06  830526
C ORIG. 10/02/71
C
      DIMENSION X(99), NBITS(3)
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
      CALL SBYT (I,X(JWORD),LOC,NBIT)
      RETURN
      END
Commit	Line	Data
fe4da5cc	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