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