subroutine GET_ANOTHER_X_VALUE (x)

c  Glen Cowan
c  10 October, 1999
c  Simple routine that returns a Gaussian distributed value x

      implicit         NONE

c  constants

      real             mu
      parameter        (mu = 5.)
      real             sigma
      parameter        (sigma = 1.2)

c  arguments

      real             x

c  variables

      real             rvec(1)

c  begin

      call RNORML (rvec,1)            ! CERNLIB routine V120                 !
      x = mu + sigma*rvec(1)

      return
      END