DOUBLE PRECISION FUNCTION DRNNOF()
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DRNNOF=GENNOR(0D0,1D0)
      CALL ADVNST(7)
      RETURN
      END