C-----------------------------------------------------------------------
C IMSL Name:  AKER0/DKER0 (Single/Double precision version)
C
C Purpose:    Evaluate the Kelvin function of the second kind, ker,
C             of order zero.
C
C Usage:      AKER0(X)
C
C Example 1:
C                                  Declare variables
      INTEGER    NOUT
      REAL       AKER0, VALUE, X
      EXTERNAL   AKER0, UMACH
C                                  Compute
      X     = 0.4
      VALUE = AKER0(X)
C                                  Print the results
      CALL UMACH (2, NOUT)
      WRITE (NOUT,99999) X, VALUE
99999 FORMAT (' AKER0(', F6.3, ') = ', F6.3)
      END
C  AKER0( 0.400) =  1.063