C
      DOUBLE PRECISION  U,DUNI,DUSTAR,USEED
      INTEGER ISEED,I
C SET INITIAL SEED
      ISEED = 305
      USEED = DUSTAR(ISEED)
C USTART RETURNS FLOATING ECHO OF ISEED 
      WRITE (*,*) 'DUNI RESULTS '
      WRITE (*,'(5X,I5,5X,D15.8)')ISEED, USEED
      DO 1 I = 1,1000
          U = DUNI()
    1 CONTINUE
      WRITE (*,'(12X,D25.15)') U
      WRITE (*,*) 'REFERENCE RESULTS FROM AN IBM P/C'
      WRITE (*,*) '      305      0.30500000E+03' 
      WRITE (*,*) '               0.241576136599321E+00'
      END