110518Sdlw /* 2*22943Skre * Copyright (c) 1980 Regents of the University of California. 3*22943Skre * All rights reserved. The Berkeley software License Agreement 4*22943Skre * specifies the terms and conditions for redistribution. 5*22943Skre * 6*22943Skre * @(#)r_abs.c 5.1 06/07/85 710518Sdlw */ 810518Sdlw 910518Sdlw double r_abs(x) 1010518Sdlw float *x; 1110518Sdlw { 1210518Sdlw if(*x >= 0) 1310518Sdlw return(*x); 1410518Sdlw return(- *x); 1510518Sdlw } 16