C-----------------------------------------------------------------------
C IMSL Name:  BSJNS/DBSJNS (Single/Double precision version)
C
C Purpose:    Evaluate a sequence of Bessel functions of the first
C             kind with integer order and real arguments.
C
C Usage:      CALL BSJNS (X, N, BS)
C
C Example 1:
C                                  Declare variables
      INTEGER    N
      PARAMETER  (N=10)
C
      INTEGER    K, NOUT
      REAL       BS(N), X
      EXTERNAL   BSJNS, UMACH
C                                  Compute
      X = 10.0
      CALL BSJNS (X, N, BS)
C                                  Print the results
      CALL UMACH (2, NOUT)
      DO 10  K=1, N
         WRITE (NOUT,99999) K-1, X, BS(K)
   10 CONTINUE
99999 FORMAT (' J sub ', I2, ' (', F6.3, ') = ', F6.3)
      END
C  J sub  0 (10.000) = -0.246
C  J sub  1 (10.000) =  0.043
C  J sub  2 (10.000) =  0.255
C  J sub  3 (10.000) =  0.058
C  J sub  4 (10.000) = -0.220
C  J sub  5 (10.000) = -0.234
C  J sub  6 (10.000) = -0.014
C  J sub  7 (10.000) =  0.217
C  J sub  8 (10.000) =  0.318
C  J sub  9 (10.000) =  0.292