DOUBLE PRECISION FUNCTION DNORDF(X)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      CALL CDFNOR(1,DNORDF,X,0D0,1D0,N,BOUND)
      RETURN
      END