erfl
long double erfl(long double);
extern long double erfl(long double);
long double erfl(long double),s,y,t;
if (x<=0.25) return one-erfl(x);
extern long double erfl(long double);
if (x<=0.25) return one-erfl(x);
extern long double erfl(long double);