REAL*8 FUNCTION GAU1MX(NMIX,AMU,SIG,P)
      IMPLICIT REAL*8 (A-H,O-Z)
      DIMENSION AMU(NMIX),SIG(NMIX),P(NMIX)
      J=NDISC(NMIX,P)
      GAU1MX=AMU(J)+SIG(J)*DRNNOF()
      RETURN
      END