MINICERN/packlib/kernlib/kerngen/tcgen/bunch.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:41  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       SUBROUTINE BUNCH (INT,CHAR,NCHP,NBITS)
  11 C
  12 C CERN PROGLIB# M436    BUNCH           .VERSION KERNFOR  4.31  911111
  13 C
  14       DIMENSION    CHAR(*), INT(*)
  15       DIMENSION    NCHP(9), IPAR(5)
  16       DATA  IPAR   / 0, 0, 0, 0, 0 /
  17 C
  18       NCH     = NCHP(1)
  19       IPAR(1) = NBITS
  20       IPAR(3) = NCH*IPAR(1) + 127
  21 C
  22       CALL PKCHAR (INT,CHAR,NCH,IPAR)
  23       RETURN
  24       END