xref: /plan9/sys/src/ape/lib/ap/math/fabs.c (revision 3e12c5d1bb89fc02707907988834ef147769ddaf)
1*3e12c5d1SDavid du Colombier #include <math.h>
2*3e12c5d1SDavid du Colombier 
3*3e12c5d1SDavid du Colombier double
fabs(double arg)4*3e12c5d1SDavid du Colombier fabs(double arg)
5*3e12c5d1SDavid du Colombier {
6*3e12c5d1SDavid du Colombier 
7*3e12c5d1SDavid du Colombier 	if(arg < 0)
8*3e12c5d1SDavid du Colombier 		return -arg;
9*3e12c5d1SDavid du Colombier 	return arg;
10*3e12c5d1SDavid du Colombier }
11