erfcl
long double erfcl(long double);
extern long double erfcl(long double);
long double erfcl(long double),s,y,t;
if (y<=9.0L) t = erfcl(y); else t = tiny;
extern long double erfcl(long double);
if (y<=9.0L) t = erfcl(y); else t = tiny;
extern long double erfcl(long double);