C-----------------------------------------------------------------------
C IMSL Name:  CBINS/DCBINS (Single/Double precision version)
C
C Purpose:    Evaluate a sequence of Modified Bessel functions of the
C             first kind with integer order and complex arguments.
C
C Usage:      CALL CBINS (Z, N, CBS)
C
C Example 1:
C                                  Declare variables
      INTEGER    N
      PARAMETER  (N=11)
C
      INTEGER    K, NOUT
      COMPLEX    CBS(N), Z
      EXTERNAL   CBINS, UMACH
C                                  Compute
      Z = (10.0, 10.0)
      CALL CBINS (Z, N, CBS)
C                                  Print the results
      CALL UMACH (2, NOUT)
      DO 10  K=1, N
         WRITE (NOUT,99999) K-1, Z, CBS(K)
   10 CONTINUE
99999 FORMAT (' I sub ', I2, ' ((', F6.3, ',', F6.3,
     &     ')) = (', F9.3, ',', F9.3, ')')
      END
C  I sub  0 ((10.000,10.000)) = (-2314.975, -411.563)
C  I sub  1 ((10.000,10.000)) = (-2246.627, -460.681)
C  I sub  2 ((10.000,10.000)) = (-2044.245, -590.157)
C  I sub  3 ((10.000,10.000)) = (-1719.746, -751.498)
C  I sub  4 ((10.000,10.000)) = (-1302.871, -880.632)
C  I sub  5 ((10.000,10.000)) = ( -846.345, -920.394)
C  I sub  6 ((10.000,10.000)) = ( -419.501, -843.607)
C  I sub  7 ((10.000,10.000)) = (  -88.480, -665.930)
C  I sub  8 ((10.000,10.000)) = (  108.586, -439.392)
C  I sub  9 ((10.000,10.000)) = (  176.165, -227.548)
C  I sub 10 ((10.000,10.000)) = (  154.831,  -76.050)