C-----------------------------------------------------------------------
C IMSL Name:  RNCHI/DRNCHI (Single/Double precision version)
C
C Purpose:    Generate pseudorandom numbers from a chi-squared
C             distribution.
C
C Usage:      CALL RNCHI (NR, DF, R)
C
C Example 1:
      INTEGER    ISEED, NOUT, NR
      REAL       DF, R(5)
      EXTERNAL   RNCHI, RNSET, UMACH
C
      CALL UMACH (2, NOUT)
      DF    = 5.0
      NR    = 5
      ISEED = 123457
      CALL RNSET (ISEED)
      CALL RNCHI (NR, DF, R)
      WRITE (NOUT,99999) R
99999 FORMAT ('  Chi-squared random deviates with 5 df: ', 5F7.3)
      END
C   Chi-squared random deviates with 5 df:  12.090  0.481  1.798 14.871  1.748