C-----------------------------------------------------------------------
C IMSL Name:  DSQAR/DDSQAR (Single/Double precision version)
C
C Purpose:    Perform a D-square test.
C
C Usage:      CALL DSQAR (IDO, NRAN, X, NCELL, COUNT, EXPECT, CHISQ,
C                         DF, PROB)
C
C Example 1:
      INTEGER    IDO, NCELL, NROW
      PARAMETER  (IDO=0, NCELL=6, NROW=2000)
C
      INTEGER    NOUT
      REAL       CHISQ, COUNT(NCELL), DF, EXPECT, PROB, X(NROW)
      EXTERNAL   DSQAR, RNSET, RNUN, UMACH, WRRRN
C
      CALL RNSET (123457)
C                                  Generate the random numbers
      CALL RNUN (NROW, X)
C
      CALL DSQAR (IDO, NROW, X, NCELL, COUNT, EXPECT, CHISQ, DF, PROB)
C
      CALL WRRRN ('COUNT', 1, NCELL, COUNT, 1, 0)
      CALL UMACH (2, NOUT)
      WRITE (NOUT,*) ' EXPECT = ', EXPECT
      WRITE (NOUT,*) ' CHISQ  = ', CHISQ
      WRITE (NOUT,*) ' DF     = ', DF
      WRITE (NOUT,*) ' PROB   = ', PROB
      END
C
C                       COUNT
C       1       2       3       4       5       6
C   87.00   84.00   78.00   76.00   92.00   83.00
C  EXPECT =     83.3333
C  CHISQ  =     2.05600
C  DF     =     5.00000
C  PROB   =    0.841343