d_fabs_.c

来自「操作系统SunOS 4.1.3版本的源码」· C语言 代码 · 共 17 行

#ifndef lint
static	char sccsid[] = "@(#)d_fabs_.c 1.1 92/07/30 SMI";
#endif

/*
 * Copyright (c) 1987 by Sun Microsystems, Inc.
 */

#include <math.h>

double d_fabs_(x)
double *x;
{
	return fabs(*x);
}