1 /* 2 * "@(#)d_abs.c 1.1" 3 */ 4 5 double d_abs(x) 6 double *x; 7 { 8 if(*x >= 0) 9 return(*x); 10 return(- *x); 11 } 12