program rngtest
      real*8 rlfsr113
      integer*4 i

      i=1
      call lfsrinit(i)

      print *,'Now printing the first 10 random numbers'
      print *,'and the expected values (in brackets).'
      print '(F8.5,A)',  rlfsr113(),'  (0.22818)'
      print '(F8.5,A)',  rlfsr113(),'  (0.89969)'
      print '(F8.5,A)',  rlfsr113(),'  (0.45423)'
      print '(F8.5,A)',  rlfsr113(),'  (0.52418)'
      print '(F8.5,A)',  rlfsr113(),'  (0.14223)'
      print '(F8.5,A)',  rlfsr113(),'  (0.35748)'
      print '(F8.5,A)',  rlfsr113(),'  (0.52853)'
      print '(F8.5,A)',  rlfsr113(),'  (0.94036)'
      print '(F8.5,A)',  rlfsr113(),'  (0.47970)'
      print '(F8.5,A)',  rlfsr113(),'  (0.63356)'

      stop
      end