110518Sdlw /* 222943Skre * Copyright (c) 1980 Regents of the University of California. 322943Skre * All rights reserved. The Berkeley software License Agreement 422943Skre * specifies the terms and conditions for redistribution. 522943Skre * 6*23854Sjerry * @(#)r_abs.c 5.2 07/08/85 710518Sdlw */ 810518Sdlw 9*23854Sjerry float r_abs(x) 1010518Sdlw float *x; 1110518Sdlw { 1210518Sdlw if(*x >= 0) 1310518Sdlw return(*x); 1410518Sdlw return(- *x); 1510518Sdlw } 16