real*8 g05caf
c      real*8 g05ddf
      real x

      call g05cbf(0) ! initialize repeatable random sequence.

      write(6,*) 'repeatable:'
      do i=1,30
         x = g05caf()
c         x = g05ddf(0.d0,1.0d0)   ! NAG's Gaussian random number generator
         write(6,*) 'x =',x
      enddo

      call  g05ccf  ! initialize random number generator from clock, or

      write(6,*) 'random start:'
      do i=1,30
         x = g05caf()
c         x = g05ddf(0.d0,1.d0)   ! NAG's Gaussian random number generator
         write(6,*) 'x =',x
      enddo

      stop
      end