Bell 32V development

[unix-history] / usr / src / libF77 / r_erfc.c

float erfc_(x)
float *x;
{
double erfc();
return( erfc(*x) );
}