C Typical UNI usage:
C
      REAL    U,UNI,USTART,USEED
      INTEGER ISEED,I
C Set initial seed
      ISEED = 305 
      USEED = USTART(ISEED)
C Ustart returns floating echo of iseed
      WRITE (*,*) 'UNI RESULTS '
      WRITE (*,*) ISEED, USEED
      DO 1 I = 1,1000 
          U = UNI()
    1 CONTINUE 
      WRITE (*,*) U
      WRITE (*,*)
      WRITE (*,*) 'REFERENCE RESULTS FROM IBM PC/AT'
      WRITE (*,*) '         305    305.000'
      WRITE (*,*) '   0.157039'
      END