erfc_.c

<B>Digital的Unix操作系统VAX 4.2源码</B>

/*
 *	"@(#)erfc_.c	1.1"
 */

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

return( erfc(*x) );
}