C Typical RNOR usage:
      DOUBLE PRECISION R,RNOR,RSTART,RSEED
      INTEGER ISEED,I
C Set initial seed
      ISEED = 305
      RSEED = RSTART(ISEED)
C Rstart returns floating echo of iseed
      WRITE (*,*) 'RNOR RESULTS'
      WRITE (*,*) ISEED, RSEED
      DO 1 I = 1,3
          R = RNOR()
          WRITE (*,*) R
    1 CONTINUE
C
      WRITE (*,*) 
      WRITE (*,*) 'REFERENCE RESULTS FROM IBM PC/AT'
      WRITE (*,*) '         305    305.000'
      WRITE (*,*) '   0.335785'
      WRITE (*,*) '   0.230143'
      WRITE (*,*) '    1.02517'
      STOP
      END