C
C   Subroutine to fill ARRAY with COUNT values that are randomly
C   generated in the range 0 to LIMIT - 1.  The SEED is being passed
C   through MAKEARR to get it to RANDOM which uses it.
C
        SUBROUTINE MAKEARR (SEED, ARRAY, COUNT, LIMIT)
        INTEGER  SEED, COUNT, LIMIT
        INTEGER  ARRAY(COUNT)
        INTEGER  J
C
C       Loop to call RANDOM to produce a new random number and put it
C       in an element of the array
C
        DO 11 J = 1, COUNT
            CALL RANDOM (SEED, LIMIT, ARRAY(J))
11      CONTINUE
        RETURN
        END