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